以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何进行多列表项目查询输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1612)
--  作者：woodiy
--  发布时间：2009/1/12 16:10:00
--  如何进行多列表项目查询输入
在查询表中, 如何实际我选择了市以后,自动筛选出可供选择的县,然后再次筛选出可供选择的公司,以次类推,谢谢!

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试学习.table
--  作者：kylin
--  发布时间：2009/1/12 16:17:00
--  

好好读帮助，你的问题在帮助中有详细说明
--  作者：czy
--  发布时间：2009/1/12 16:35:00
--  
帮助中抄的，查询表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