Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何进行多列表项目查询输入

1楼
woodiy 发表于:2009/1/12 16:10:00
在查询表中, 如何实际我选择了市以后,自动筛选出可供选择的县,然后再次筛选出可供选择的公司,以次类推,谢谢!

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试学习.table



2楼
kylin 发表于:2009/1/12 16:17:00

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

3楼
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

 

共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.