“部门名称”下拉框如何根据“单位名称”下拉框生成！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → “部门名称”下拉框如何根据“单位名称”下拉框生成！！！

共有14772人关注过本帖树形打印复制链接主题：“部门名称”下拉框如何根据“单位名称”下拉框生成！！！

雨中的泪

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

“部门名称”下拉框如何根据“单位名称”下拉框生成！！！ 发帖心情

Post By：2010/6/6 19:23:00 [只看该作者]

“部门名称”下拉框如何根据“单位名称”下拉框生成！！！

1、当“单位名称”下拉框为空时，“部门名称”下拉框显示全部单位的所有部门名称；

2、当“单位名称”下拉框不为空时而是为某个单位，“部门名称”下拉框根据此单位下属部门生成下拉框！！！

比如：

S1下属单位为：A、B、C、D；

S2下属单位为：A、B、C、D、E；

当单位框内为：S1，生成的部门下拉框为：A、B、C、D

当单位框内为：S2，生成的部门下拉框为：A、B、C、D、E

谢谢！！！！

雨中的泪

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/6/6 19:26:00 [只看该作者]

此主题相关图片如下：1.jpg

雨中的泪

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/6/6 19:26:00 [只看该作者]

Dim BB As String
BB = Forms("报表").Controls("输入单位名称").text
If BB <> "" Then
    Tables("报表_Table1").DataSource = DataTables("单位名称")
    Tables("报表_Table1").SetColVisibleWidth("单位名称|120|单位地址|160|单位负责人|100")
    with e.Form
        Dim dst As Table = Tables("单位名称")
        Dim txb1 As WinForm.ComboBox = .Controls("输入单位名称")
        Tables("报表_Table1").Filter = "[单位名称] Like '*" & txb1.text & "*'"
    end with
Dim cmb1 As WinForm.ComboBox = e.form.Controls("输入部门名称")
cmb1.ComboList = DataTables("调标表").GetComboListString("部门名称","[单位名称] = BB ")
else
    With e.Form
        Tables("报表_Table1").Filter = "_identify < 0"
Dim cmd As WinForm.TextBox = e.Form.Controls("输入单位地址")
cmd.value=""
   End With
Dim cmb1 As WinForm.ComboBox = e.form.Controls("输入部门名称")
cmb1.ComboList = DataTables("调标表").GetComboListString("部门名称")
end if