代码作用对比，有什么区别？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用find加sqlfind即可

If e.DataCol.Name = "客户编号" Then
    Dim dr As DataRow = DataTables("客户").Find("客户编号 = '" & e.DataRow("客户编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("发包单位") = dr("公司名称")
    Else
        dr = DataTables("客户").sqlFind("客户编号 = '" & e.DataRow("客户编号") & "'")
        If dr IsNot Nothing Then
            e.DataRow("发包单位") = dr("公司名称")
        End If
    End If
End If

如果datatable没有加载进来，不能直接用find和sqlfind。

通常，都是些sqlfind。你修改完客户表以后，应该save那一行的。

以下是引用yancheng在2015/9/6 14:34:00的发言：
修改完成：客户：客户编号，公司名称。都有SAVE的。

是save以后，再触发子表的datacolchanged事件。

以下是引用yancheng在2015/9/6 14:31:00的发言：

Select Case e.DataCol.Name

Case "客户编号"

DataTables("销售订单").ReplaceFor(e.DataCol.Name,e.NewValue,"客户编号 = '" & e.OldValue & "'")

DataTables("施工合同").ReplaceFor(e.DataCol.Name,e.NewValue,"客户编号 = '" & e.OldValue & "'")

Case "公司名称"

DataTables("销售订单").DataCols("客户编号").RaiseDataColChanged("客户编号 = '" & e.DataRow("客户编号") & "'")

DataTables("施工合同").DataCols("客户编号").RaiseDataColChanged("客户编号 = '" & e.DataRow("客户编号") & "'")

End Select

像这个代码，在：客户，表，DataColChanged中写入，用于更新：销售订单，施工合同中的，客户编号，和：公司名称。

如果：销售订单，施工合同的DataTables未加载，是不是就没有办法自动更新了呢？

如果没加载，你可以直接用sql语句去修改。

"Up date {客户} set 公司名称 = '" & e.DataRow("公司名称") & "' where 客户编号 = '" & e.DataRow("客户编号") & "'"

主题：代码作用对比，有什么区别？