Select e.DataCol.Name
Case "单据编号"
If e.DataRow.isnull("单据编号")=false
Dim dr As DataRow = DataTables("往来").Find("单据编号 = '" & e.DataRow("单据编号") & "'")
If dr Is Nothing Then
dr = DataTables("往来").AddNew()
dr("单据编号") = e.DataRow("单据编号") dr("单据类型") = "费用"
End If
dr("单位名称") = e.DataRow("单位名称")
dr("日期") = e.DataRow("日期")
dr("摘要") = e.DataRow("摘要")
dr("增加金额") = e.DataRow("金额")
End If
Case "单位名称","日期","金额","摘要"
Dim dr As DataRow = DataTables("往来").Find(单据编号 = '" & e.DataRow("单据编号") & "'")
If dr Isnot Nothing Then
dr("单位名称") = e.DataRow("单位名称")
dr("日期") = e.DataRow("日期")
dr("摘要") = e.DataRow("摘要")
dr("增加金额") = e.DataRow("金额")
End If
End Select
加好友 
发短信
Post By：2021/7/7 8:49:00 [显示全部帖子]
