[浏览完整版]
标题：dropdownbox
1楼
edisontsui 发表于：2024/4/12 8:24:00将 UpDownButtonClick 事件代码设置为：
Dim drp As WinForm.DropDownBox =
e.Sender
Dim vals As String() = {"工商银行","建设银行","农业银行","中国银行"}
Dim val As
String = drp.value
Dim index As
Integer = -1
For i As
Integer = 0
To vals.Length - 1
If val = vals(i)
Then
index = i
Exit
For
End
If
Next
index = index + 1
If index > 3
Then
index = 0
End
If
drp.Value = vals(Index)
上面的代码是要用微调按钮来进行选择的。如果我不用微调按钮，就用下拉按钮进行选择，请问要怎样修改代码？谢谢。
2楼
有点蓝 发表于：2024/4/12 8:33:00下拉按钮只能结合下拉窗口一起使用：http://www.foxtable.com/webhelp/topics/2099.htm
3楼
edisontsui 发表于：2024/4/12 9:40:00我在使用下拉框时，有下面的代码：
Dim dd1 As WinForm.DropDownBox
dd1 = Forms("车间计件汇总").Controls("DropBox1")
备注：下拉框的窗口名称为 “工序下拉窗口”
但是使用时会出现下面的提示：
错误所在事件：窗口,车间计件汇总,Click
详细错误信息：
无法将类型为“Foxtable.WinForm.Button”的对象强制转换为类型“Foxtable.WinForm.DropDownBox”。
请问是哪里的问题?
4楼
有点蓝 发表于：2024/4/12 9:43:00调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
5楼
edisontsui 发表于：2024/4/12 10:17:00我把按钮里面与 dropdownbox 有关的代码都注释掉了，还是会出现这个提示，它就是在执行完按钮里面的代码之后才出现的。
6楼
有点蓝 发表于：2024/4/12 11:10:00
此主题相关图片如下：1.png
7楼
edisontsui 发表于：2024/4/12 14:35:00找到原因了。
8楼
edisontsui 发表于：2024/5/27 16:24:00Dim dtp1 As WinForm.DateTimePicker
dtp1 = Forms("查询任意日期库存数").Controls("DateTimePicker1") '这是 年月日
If dtp1.value Is Nothing Then
messagebox.show("尚未输入截止日期呢!")
Else
msgbox(1)
Dim dd1 As WinForm.DropDownBox
dd1 = Forms("库存数据来源单选下拉框").Controls("DropBox2")
msgbox(dd1.value)
上面是一个按钮的代码。它执行到 msgbox(1)都正常，再执行下去，就出现 <找不到名称为 "DropBox2" 的控件> 这个提示了。请问是什么问题？实际上，<库存数据来源单选下拉框> 这个窗口是有的，DropBox2 这个下拉框也是有的，进行单选操作都是正常的。就是在执行单选操作之后，再按这个按钮，就出现 <找不到名称为 "DropBox2" 的控件> 这个提示了。
谢谢。
9楼
edisontsui 发表于：2024/5/27 16:28:00找到原因了。
10楼
edisontsui 发表于：2024/8/28 16:10:00请问下拉窗口的选项内容可以从直接数据表取得数据吗？