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

在查询表中, 如何实际我选择了市以后,自动筛选出可供选择的县,然后再次筛选出可供选择的公司,以次类推,谢谢!

其中联系人表为数据资料表.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试学习.table

好好读帮助，你的问题在帮助中有详细说明

帮助中抄的，查询表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