以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “部门名称”下拉框如何根据“单位名称”下拉框生成！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7310)
--  作者：雨中的泪
--  发布时间：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

谢谢！！！！
--  作者：雨中的泪
--  发布时间：2010/6/6 19:26:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
--  作者：雨中的泪
--  发布时间：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
--  作者：雨中的泪
--  发布时间：2010/6/6 19:26:00
--  
这段代码出错◎◎◎
--  作者：czy
--  发布时间：2010/6/6 19:50:00
--  

……

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

……
--  作者：雨中的泪
--  发布时间：2010/6/6 22:14:00
--  
对，就是变量BB没取对，谢谢
--  作者：狐狸爸爸
--  发布时间：2010/6/7 7:33:00
--  

楼主，回头看帮助去。

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