新增数据基本和后台没有什么关系。原来的用法有什么问题？
If e.DataCol.Name = "登记状态"
If e.DataRow("登记状态") = True Then
Dim nma() As String = {"ID","合同编码","所属机构","项目名称","建设单位","合同金额","合同工期","开工日期","竣工日期","计量期数","是否是退扣款","计量金额","申请金额","户名","账号","开户银行","审批状态"} 'A表数据来源列
Dim nmb() As String = {"ID","合同编码","所属机构","项目名称","建设单位","合同金额","合同工期","开工日期","竣工日期","计量期数","是否是退扣款","计量金额","申请金额","户名","账号","开户银行","审批状态"} 'B表数据接收列
Dim dr As DataRow = DataTables("工程款管理") .AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
e.DataRow.save
Else
DataTables("工程款管理").deletefor("ID = '" & e.DataRow("ID") & "'")
DataTables("工程款管理").save
End If
End If
加好友 
发短信
Post By：2018/10/19 14:53:00 [显示全部帖子]
