主题：如何进行多列表项目查询输入

帮助中抄的，查询表PrepareEdit事件。

If e.IsFocusCell Then
    If e.Col.Name = "县" Then
        If e.Row.IsNull("市") Then
            e.Col.Combolist = ""
        Else
            e.Col.Combolist = DataTables("联系人").GetComboListString("县", "[市] = '" & e.Row("市") & "'")
        End If
    End If
End If
If e.IsFocusCell Then
    If e.Col.Name = "公司" Then
        If e.Row.IsNull("县") Then
            e.Col.Combolist = ""
        Else
            e.Col.Combolist = DataTables("联系人").GetComboListString("公司", "[县] = '" & e.Row("县") & "'")
        End If
    End If
End If
If e.IsFocusCell Then
    If e.Col.Name = "联系人" Then
        If e.Row.IsNull("公司") Then
            e.Col.Combolist = ""
        Else
            e.Col.Combolist = DataTables("联系人").GetComboListString("联系人", "[公司] = '" & e.Row("公司") & "'")
        End If
    End If
End If

项目属性，MainTableChanged事件。

If MainTable.Name = "查询"
   Tables("查询").Cols("市").Combolist = DataTables("联系人").GetComboListString("市")
End If