自动填充参考
http://www.foxtable.com/help/topics/1451.htm
是否可以修改,去编写prepareEdit事件
Select Case e.Col.Name Case "第二列", "第三列" Dim fdr As DataRow = DataTables("表A").find("第一列 = '" & e.Row("第一列") & "'") If fdr IsNot Nothing Then If fdr.isNull(e.Col.name) = False Then e.cancel = True End If End If End Select