参考:
http://www.foxtable.com/webhelp/topics/1453.htm
表A和表Bdatacolchanged
If e.DataCol.Name = "编号" Then
If e.NewValue Isnot Nothing Then
Dim dr As DataRow
dr = DataTables("表C").Find("[编号] = '" & e.NewValue & "'")
If dr Is Nothing
dr = DataTables("表C").addnew
dr("编号") = e.NewValue
End If
End If
End If