参考:http://www.foxtable.com/webhelp/topics/1451.htm
表B,datacolchanged
If e.DataCol.Name = "A1" Then
If e.NewValue Is Nothing Then
e.DataRow("B1") = Nothing '
Else
e.DataRow("B1") = DataTables("表A").GetComboListString("B","[A] = '" & e.NewValue & "'").replace("|",",")
End If
End If