http://www.foxtable.com/help/topics/1528.htm
类似
If e.IsFocusCell Then
Select Case e.Col.Name
Case "列二"
e.Col.Combolist = DataTables("表二").GetComboListString("列二", "[列一] = '" & e.Row("列一") & "'")
Case "列三"
e.Col.ComboList = DataTables("表二").GetComboListString("列三", "[列二] = '" & e.Row("列二") & "'")
End Select
End If