主题：[求助]

 参考

http://www.foxtable.com/help/topics/1451.htm

例子发上来。

datacolchanged事件，代码

Select Case e.DataCol.Name
    Case "区号", "电话"
        Dim fdr As DataRow = DataTables("表B").Find("联系电话 = '" & e.DataRow("区号") & e.DataRow("电话") & "'")
        If fdr IsNot Nothing Then
            e.DataRow("地址") = fdr("地址")
            e.DataRow("厂家") = fdr("厂家")
            e.DataRow("名称") = fdr("产品")
       Else
            e.DataRow("地址") = Nothing
            e.DataRow("厂家") = Nothing
            e.DataRow("名称") = Nothing
        End If
End Select