- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 下拉框 求解决方法！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30468)
-- 发布时间：2013/3/28 11:24:00
-- 下拉框 求解决方法！
Tables("材料出库明细表").Cols("物资名称").ComboList = "金属材料|设备"
Dim r As Row = e.Row
If e.Col.Name="物资名称"
Select Case r("物资名称")
Case "金属材料"
e.Col.Combolist= DataTables("金属基本资料").GetComboListString("材料名称")
Case "设备"
e.Col.Combolist=DataTables("设备基本资料").GetComboListString("设备名称")
End Select
End If
\'根据设备名称自动生成规格和材质下拉框\'
If e.Col.Name = "规格型号" Then
e.Col.Combolist = DataTables("金属基本资料").GetComboListString("规格", "[材料名称] =\'" & e.Row("物资名称") & "\'")
End If
If e.Col.Name = "材质" Then
e.Col.Combolist = DataTables("金属基本资料").GetComboListString("材质", "[材料名称] =\'" & e.Row("物资名称") & "\' And [规格] =\'" & e.Row("规格型号") & "\'")
End If
\'根据设备名称自动生成规格和材质下拉框\'
效果要求：物资名称列 选择 金属材料 在物资名称列中 生成一个新的 金属基本材料的 下拉框
物资名称列 选择 设备 在物资名称列中 生成一个新的 物资设备的 下拉框
[此贴子已经被作者于2013-3-28 13:59:39编辑过]
-- 发布时间：2013/3/28 11:51:00
--
我没有看懂你的问题，选择设备或者金属材料后代码不能进入判断语句，这是什么意思。
我印象总，你这个问题折腾很久了，其实这种小问题，做个简单发上来，几分钟就有结果了。
-- 发布时间：2013/3/28 14:11:00
--
狐爸 刚学习 很多东西 没有碰过。狐爸 你帮我再看看吧
-- 发布时间：2013/3/28 14:58:00
--
不可以同一列，你用下拉目录树解决更加方便，从这一节开始看：
http://www.foxtable.com/help/topics/2053.htm
初学，不要直入《开发指南》，应该先看《使用指南》，很多东西都只在使用指南介绍的
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
[此贴子已经被作者于2013-3-28 14:59:38编辑过]