主题：跨表引用

具体一点你的问题，尽量举例说明。

 

锁定的逻辑是什么？截图或者上传项目。

Select Case e.DataCol.Name
    Case "riqi", "qihao"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("riqi") OrElse dr.IsNull("qihao") Then
            dr("wan") = Nothing
            dr("qian") = Nothing
            dr("bai") = Nothing
            dr("shi") = Nothing
            dr("ge") = Nothing
        Else
            Dim filter As String
            filter = "riqi = '" & dr("riqi") & "' And qihao = '" & dr("qihao") & "'"
            pr = DataTables("表a").Find(filter)
            If pr IsNot Nothing Then
                dr("wan") = pr("wan")
                dr("qian") = pr("qian")
                dr("bai") = pr("bai")
                dr("shi") = pr("shi")
                dr("ge") = pr("ge")
            End If
        End If
End Select

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

没看懂你的逻辑，既然代码没问题，那就不再分割了吧，你这样的逻辑，分开来写比较简明容易修改。

 

如果是编辑器问题，请升级到最新版测试。

 

不然，你就先理清你的逻辑，好好说明一下每一个列的数据怎么获取，规律是什么。同时，上传具体事例说明。