Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共13 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题: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:00
Dim 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
请问下拉窗口的选项内容可以从直接数据表取得数据吗?

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

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .06250 s, 2 queries.