[求助]编号跨表更新，没有要访问的 Original 数据。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Sel ect Case e.DataCol.Name

Case "项目编号"

If e.DataRow.IsNull(e.DataCol.name) =False AndAlso e.DataRow.OriginalValue("项目编号") <> Nothing Then

Dim nm() As String = {"施工合同"}

For Each n As String In nm

If DataTables.Contains(n) =False Then

DataTables(n).load

End If

DataTables(n).sqlReplaceFor("项目编号",e.DataRow("项目编号"),"项目编号 = '" & e.DataRow.OriginalValue("项目编号") & "'")

DataTables(n).save

Else

MessageBox.Show("""项目编号""为空,请输入新的值.","提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)

e.Cancel = True

End If

Case "项目名称"

If e.DataRow.IsNull(e.DataCol.name) =False And e.DataRow.OriginalIsNull("项目名称") =False Then

Dim nm() As String = {"施工合同"}

For Each n As String In nm

DataTables(n).sqlReplaceFor("项目名称",e.DataRow("项目名称"),"项目编号 = '" & e.DataRow("项目编号") & "'")

DataTables(n).save

End If

End Se lect

主题：[求助]编号跨表更新，没有要访问的 Original 数据。