补充一下 账年 账月 是整数列类型，我把楼上“有点甜”的代码放进去，结果还是出错，整个的代码我复制在下面，烦请各位帮修正
If e.DataCol.Name = "客审后定账确认" AndAlso e.DataRow("客审后定账确认") = True Then
Dim nma() As String = {"关联仓库DK编码","DK简称","账年","账月"}
Dim nmb() As String = {"DK编码","DK简称","账年","账月"}
Dim pr As DataRow
pr = DataTables("销售应收与衍生应付").Find("[DK编码] = '" & e.DataRow("关联仓库DK编码" ) & "' And [账年] = '" & e.DataRow("账年") & "' And [账月] = '" & e.DataRow("账月") &"'")
If pr Is Nothing Then
Dim dr As DataRow = DataTables("销售应收与衍生应付").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
Dim Filter As String = pr("DK编码") & " = '" & e.DataRow("关联仓库DK编码") & "' And " & pr("账年") & " = '" & e.DataRow("账年") & "' And " & pr("账月") & " = '" & e.DataRow("账月") & "'"
pr("应收金额")= DataTables("销售与衍生对账").Compute("Sum(产生金额)", Filter )
pr("K佣金1_金额")= DataTables("销售与衍生对账").Compute("Sum(佣金金额1)", Filter & " And 客审后定账确认 = True" )
End If
End If
加好友 
发短信
Post By：2014/9/29 16:19:00 [显示全部帖子]
