此主题相关图片如下：7.png
我根据帮助设置了代码，但有如下问题：
1.在表一新增了，需要在表一点几次重置列之后才能更新到表二；
2.更新到表二应该是自动保存的，但后台查阅数据还是未保存状态，请问如何处理可以做到实时更新及自动保存；
Select Case e.DataCol.name
Case "报告表单编号"
Dim dr As DataRow = DataTables("T_TestF").Find("报告表单编号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("T_TestF").AddNew()
dr("报告表单编号") = e.DataRow("报告表单编号")
dr("报告编号") = e.DataRow("报告编号")
dr("表单编号") = e.DataRow("表单编号")
Else
dr("报告表单编号") = e.DataRow("报告表单编号")
End If
Case "报告编号","表单编号"
Dim dr As DataRow = DataTables("T_TestF").Find("报告表单编号 = '" & e.DataRow("报告表单编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
[此贴子已经被作者于2016/3/29 15:54:04编辑过]
加好友 
发短信
Post By：2016/3/29 11:16:00 [显示全部帖子]
