Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码作用对比，有什么区别？


  共有2215人关注过本帖树形打印复制链接

主题：代码作用对比，有什么区别？
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		代码作用对比，有什么区别？  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/9/6 14:28:00 [只看该作者]

这样写，是不是不管DATATABLE是否生成，都可以使用？
通常你们写都是这样写的吗？
感觉挺繁琐的。
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：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未加载，是不是就没有办法自动更新了呢？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/6 14:31:00 [只看该作者]

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

 

通常，都是些sqlfind。你修改完客户表以后，应该save那一行的。
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/9/6 14:33:00 [只看该作者]

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

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

 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/9/6 14:34:00 [只看该作者]

修改完成：客户：客户编号，公司名称。都有SAVE的。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/6 14:50:00 [只看该作者]

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

 

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

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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("客户编号") & "'"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询