If User.IsRole("财务") Then
For Each r As Row In CurrentTable.Rows
If r("选择") = True Then
Dim dr1 As DataRow
'否则在科目明细表查找同名的凭证号和一级科目名称行,将找到的行赋值给变量dr1
dr1 = DataTables("科目明细").Find("[凭证号] = '" & dr1("凭证号") & "'And [一级科目名称] = '" & dr1("一级科目名称") & "'")
If dr1 IsNot Nothing Then '如果没有找到同名的凭证号和一级科目名称行,也就是dr1为Nothing
Return '那么返回
End If
Else
Dim nma() As String = { "日期","科目编码","凭证号","一级科目名称","借方金额","贷方金额" } 'A表数据来源列
Dim nmb() As String = { "日期","科目编码","凭证号","一级科目名称","借方金额","贷方金额" } 'B表数据接收列
Dim dr As DataRow = DataTables("科目明细").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
MainTable = Tables("科目明细") '选择表B作为主表.
End If
Next
End If
加好友 
发短信
Post By：2016/4/12 15:54:00 [显示全部帖子]
