Dim jisuanziduan As String = Args(0)
Dim jisuanhangzhi As String = Args(1)
Dim quzhiziduan As String = Args(2)
Dim jisuanzhi As Double = Args(3)
Dim quzhiziduanzhi As String = Args(4)
If e.DataRow.name = jisuanziduan AndAlso e.DataRow(jisuanziduan) = jisuanhangzhi Then
For i As Integer = 4 To Args.Length - 1
Dim dr As DataRow = e.DataTable.find(quzhiziduan & “ = '" & Args(i) & "'" )
If dr IsNot Nothing Then
jisuanzhi = jisuanzhi +dr(quzhiziduan)
End If
Next
End If
Return jisuanzhi
加好友 
发短信
Post By：2017/6/30 16:10:00 [只看该作者]
