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

1楼

雨中的泪 发表于：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楼

雨中的泪 发表于：2010/6/6 19:26:00

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

3楼

雨中的泪 发表于：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

4楼

雨中的泪 发表于：2010/6/6 19:26:00

这段代码出错◎◎◎

5楼

czy 发表于：2010/6/6 19:50:00

……

cmb1.ComboList = DataTables("调标表").GetComboListString("部门名称","[单位名称] = '" & BB & "'")

……

6楼

雨中的泪 发表于：2010/6/6 22:14:00

对，就是变量BB没取对，谢谢

7楼

狐狸爸爸 发表于：2010/6/7 7:33:00

楼主，回头看帮助去。

快两年了，你连合成表达式都稀里糊涂的，不能总拿“项目要得急，没空看帮助”做借口，其实你这样更浪费时间。

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