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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码作用对比，有什么区别？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74212)

--  作者：yancheng
--  发布时间：2015/9/6 14:20:00
--  代码作用对比，有什么区别？

这两个代码，写在：表事件，DataColChanged 中，但作用感觉不一样。不清楚哪个时候用在哪里对的？具体区别有哪里？应该怎样准确地使用？
给我感觉就是：SELECT这个方法，在RaiseDataColChanged时，好像用的是旧值，不是新值；但是，如果用datatable 的find 方法，会不会出现数据未加载，找不到表，的情况呢？（我用的是外部数据库，ACCSEE）
If e.DataCol.Name = "客户编号" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
Dim dr As DataRow = e.DataRow
cmd.CommandText = "SELECT * Fro m {客户} Where [客户编号] = \'" & dr("客户编号") & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("发包单位") = dt.DataRows(0)("公司名称")
End If
End If

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

--  作者：大红袍
--  发布时间：2015/9/6 14:25:00
--

用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

--  作者：yancheng
--  发布时间：2015/9/6 14:28:00
--
这样写，是不是不管DATATABLE是否生成，都可以使用？
通常你们写都是这样写的吗？
感觉挺繁琐的。

--  作者：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未加载，是不是就没有办法自动更新了呢？

--  作者：大红袍
--  发布时间：2015/9/6 14:31:00
--

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

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

--  作者：yancheng
--  发布时间：2015/9/6 14:33:00
--

我不太懂，DataTables加载这个事儿哈。

销售订单，施工合同的DataTables是不是一般都是加载的？

--  作者：yancheng
--  发布时间：2015/9/6 14:34:00
--
修改完成：客户：客户编号，公司名称。都有SAVE的。

--  作者：大红袍
--  发布时间：2015/9/6 14:50:00
--

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

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

--  作者：大红袍
--  发布时间：2015/9/6 14:52:00
--

以下是引用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("客户编号") & "\'"