希望下补货表里输入数据后同步到账单相应列，结果不行，不起确定是否是代码有问题还是表结构的问题，具体问题如图
补货表
datacolchanged事件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("补货费")
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
End Select
datarowdeleting事件
Dim dr As DataRow = DataTables("账单").Find("客户名 = '" & e.DataRow("客户名") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
可是出现问题，不能完全同步
补货表
此主题相关图片如下：微信截图_20180511215300.png
账单表
此主题相关图片如下：微信截图_20180511215329.png
[此贴子已经被作者于2018/5/11 21:42:44编辑过]
加好友 
发短信
Post By：2018/5/11 20:54:00 [显示全部帖子]
