|
以下是引用片段：
相关代码如下：
初始化列表表头
根据不同的条件显示列表
Dim arrName()
arrName = Array(工资代码部门名称年份月份人员名称总工资(职位工资之和奖金补贴其他扣除税金扣除保险扣除其他最终金额发放时间)
Dim arrColwidth()
arrColwidth = Array()
ddd.Cols = UBound(arrColwidth) + 1
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) =
Next
ddd.Rows = 16
ddd.MergeCells = flexMergeFree
ddd.MergeCol(1) = True
ddd.MergeCol(2) = True
ddd.MergeCol(3) = True
ddd.MergeCol(4) = True
If Me.Text1.Tag = Then
Call UpdateDDD(ddd, ExecSql( select gzid,bmmc,nf,yf,xm,zgz,jj,bt,qt,kcsj,kcbx,kcqt,zzje,ffsj from GZ,YG,BM where GZ.ygid=YG.ygid and YG.bmid=Bm.bmid and yg.ygid like & Me.Text2.Tag & % and nf like & Me.Combo2.Text & % and yf like & Me.Combo1.Text & % ))
ElseIf Me.Text1.Tag <> Then
Dim tmprs As New ADODB.Recordset
Dim tmpstr As String
Set tmprs = ExecSql( select * from Bm where sjbmid= & Me.Text1.Tag & )
tmpstr = bm.bmid= & Me.Text1.Tag &
With tmprs
If .RecordCount > 0 Then
Do Until .EOF
tmpstr = tmpstr & or bm.bmid= & .Fields( bmid ).Value &
.MoveNext
Loop
End If
End With
Call
|