以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列名不同的同步数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89237)
--  作者：douglas738888
--  发布时间：2016/8/17 17:39:00
--  列名不同的同步数据问题

请教老师，如果列名不同的话，数据同步应该怎样改代码

Select Case e.DataCol.name
    Case "信息编号"
        Dim dr As DataRow = DataTables("总表单").Find("信息编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then
            dr = DataTables("总表单").AddNew()
            dr("信息编号") = e.DataRow("信息编号")
            dr("表单名称") = e.DataRow("表单名称")
            \'dr("表单编号") = e.DataRow("表单号")
        Else
            dr("信息编号") = e.DataRow("信息编号")
        End If
    Case "表单名称","表单编号"
        Dim dr As DataRow = DataTables("总表单").Find("信息编号 = \'" & e.DataRow("信息编号") & "\'")
        If dr IsNot Nothing Then
            dr("表单编号") = e.DataRow("表单号")
        End If
End Select
--  作者：douglas738888
--  发布时间：2016/8/17 17:43:00
--  
好像，把Case "表单名称","表单编号"   改成 Case "表单名称","表单号"  就可以了，大红袍老师是这样改吗？
--  作者：大红袍
--  发布时间：2016/8/17 17:55:00
--  
Case "表单名称","表单编号"
        Dim dr As DataRow = DataTables("总表单").Find("信息编号 = \'" & e.DataRow("信息编号") & "\'")
        If dr IsNot Nothing Then
            dr("3") = e.DataRow("1")
            dr("4") = e.DataRow("2")
        End If