引用与同步数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

由于不敢贸然升级，所以先详细的说一下，看看能不能解决。

二个表：表A 表B

表A里面有四个列，第一列，第二列，第三列，数据列。（表A是主表，数据列的内容会随时变化）

表B里面有四个列，第一列，第二列，第三列，数据列。

在表B里面输入符合相同的，第一列，第二列，第三列内容而后自动引用表A的数据列的内容到表B数据列里面，

但是表A里面的数据列会随时变化，那么如何实现表A里面的数据变化后同，表B里面符合相同内容的列的数据列也一起变化。

如下是符合内容的引用代码，但是如何实现表A里面的数据变化，表B也一起变化，就不会了，请狐爸爸帮看一下。

If e.DataCol.Name = "第一列" Or e.DataCol.Name="第二列" Or e.DataCol.Name="第三列" Then

If e.DataRow.IsNull(" 第一列 ") Then

e.DataRow(" 第二列 ") = Nothing

e.DataRow(" 第三列 ") = Nothing

Else

Dim dr As DataRow

dr=DataTables("表A").Find(" 第一列 ='" & e.DataRow(" 第一列 ") & "'And 第二列 ='" & e.DataRow(" 第二列 ") & "'And 砖号 ='" & e.DataRow("第三列 ") & "'")

If dr IsNot Nothing Then

e.DataRow(" 数据列 ") = dr(" 数据列 ")

End If

DataColChanged事件代码设置为：

Select Case e.DataCol.name
    Case "工厂","工段","日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("工厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
            Dim pr As DataRow = DataTables("工资标准").Find("分厂 = '" & dr("工厂") & "' and 工段 = '" & dr("工段") & "' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
            If pr IsNot Nothing Then
                dr("工资标准") = pr("工资标准")
            End If
        End If
End Select

参考下

表A DataCloChanged事件中

if e.dataCol.Name="数据列" then

datatables("表B").find(" 第一列 ='" & e.DataRow(" 第一列 ") & "'And 第二列 ='" & e.DataRow(" 第二列 ") & "'And 砖号 ='" & e.DataRow("第三列 ") & "'")("数据列")=e.NewValue

end if

我采用的是这段代码，但是有一个问题，如果表B 里面没有符合表A的条件列，在表A里面编辑的时候就会报错，要如何改这段代码，不会报错。

if e.dataCol.Name="数据列" then

datatables("表B").find(" 第一列 ='" & e.DataRow(" 第一列 ") & "'And 第二列 ='" & e.DataRow(" 第二列 ") & "'And 砖号 ='" & e.DataRow("第三列 ") & "'")("数据列")=e.NewValue

end if

写代码要规范：

If e.DataCol.Name="数据列" Then
    Dim dr As DataRow = DataTables("表B").find(" 第一列 ='" & e.DataRow(" 第一列 ") & "'And 第二列 ='" & e.DataRow(" 第二列 ") & "'And 砖号 ='" & e.DataRow("第三列 ") & "'")
    If dr IsNot Nothing Then
        dr("数据列")=e.NewValue
    End If
End If

主题：引用与同步数据