- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口类型为DropDownForm下拉列表框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104148)
-- 发布时间：2017/7/24 15:46:00
-- 窗口类型为DropDownForm下拉列表框
窗口类型为DropDownForm的窗口中，添加了几个ComboBox1的标签，并将ComboBox1.ComboList = "湛江佳信公司|深圳汇丰公司|北京冠豪公司",但下拉时，一直报错
-- 发布时间：2017/7/24 15:48:00
--
此主题相关图片如下：22.png
此主题相关图片如下：11.png
此主题相关图片如下：33.png
-- 发布时间：2017/7/24 15:48:00
--
此主题相关图片如下：4.png
-- 发布时间：2017/7/24 15:57:00
--
你截图的代码不可能报错。你其余代码有问题，请贴出完整代码。
-- 发布时间：2017/7/24 16:04:00
--
For i As Integer = 1 To 7
Dim dr As DataRow
dr = DataTables("APQP行业影响因素设置").Find("行业 = \'" & Tables("APQP基本资料主表").current("行业") & "\' and 序号 = \'" & i & "\'")
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("Label" & i + 7).text = dr("因素名称")
Else
MessageBox.Show("未找到此行业下序号为:" & i & "的因素名称,请在\'词条\'窗口内核实~~~","小慧温馨提示")
End If
e.Form.Controls("ComboBox" & i).ComboList = DataTables("APQP行业影响因素设置").GetComboListString("影响因素","行业 = \'" & Tables("APQP基本资料主表").current("行业") & "\' and 序号 = \'" & i & "\'")
Next
\'e.Form.Controls("ComboBox1").ComboList = "湛江佳信公司|深圳汇丰公司|北京冠豪公司"
Dim ix As Integer = Tables("APQP基本资料子表").ColSel
If Tables("APQP基本资料子表").current(ix) <> "" Then
Dim lst As New List(of String)
lst.Addrange(Tables("APQP基本资料子表").current(ix).split("|"))
For i As Integer = 1 To 7
e.Form.Controls("ComboBox" & i).value = lst(i - 1)
Next
End If
-- 发布时间：2017/7/24 16:07:00
--
这句代码写在了打开窗口后执行，但打开时没报错，正常的；报错是在我点控件的下拉小箭头时，e.Form.Controls("ComboBox1").ComboList下拉时，就报刚图片上的错误
-- 发布时间：2017/7/24 16:28:00
--
请贴出出错代码
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2017/7/24 17:10:00
--
甜老师，原因我找到了，是写了下面的代码才报错。可奇怪的是我点ComboBox1的下拉小剪头跟这句话也没关系呀？为什么我一点ComboBox1这个下拉窗口就会关闭呢？
5、将DropDownBox的Validating事件代码设置为：
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
drp.CloseDropdown(False) \'关闭下拉窗口
End If
-- 发布时间：2017/7/24 17:36:00
--
我测试了一下这个例子，没有问题。
http://www.foxtable.com/webhelp/scr/2466.htm
你不要把代码写到窗口的validating或者combobox1的validating去。