Select Case e.DataCol.name
Case "编号"
Dim dr As DataRow = DataTables("采购验证表").Find("编号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("采购验证表").AddNew()
dr("编号") = e.DataRow("编号")
dr("设备名称") = e.DataRow("设备名称")
dr("型号规格") = e.DataRow("型号规格")
dr("数量") = e.DataRow("数量")
dr("单位") = e.DataRow("单位")
dr("申购人") = e.DataRow("申购人")
Else
dr("编号") = e.DataRow("编号")
End If
Case "设备名称","型号规格","数量","单位","申购人"
Dim dr As DataRow = DataTables("采购验证表").Find("编号 = '" & e.DataRow("编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
我想实现，当“采购表”增加一行，“采购验证表”也增加一行。并且把采购表新增行里“设备名称”“型号规格”“数量”“单位”“申购人”列的内容复制“采购验证表”中
按上面这样写只能实现当编号发生更改才能复制内容 请教大大，改如何写？
加好友 
发短信
Post By：2018/1/10 11:24:00 [显示全部帖子]
