主题：窗口类型为DropDownForm下拉列表框

窗口类型为DropDownForm的窗口中，添加了几个ComboBox1的标签，并将ComboBox1.ComboList = "湛江佳信公司|深圳汇丰公司|北京冠豪公司",但下拉时，一直报错

此主题相关图片如下：22.png


此主题相关图片如下：11.png


此主题相关图片如下：33.png

此主题相关图片如下：4.png

你截图的代码不可能报错。你其余代码有问题，请贴出完整代码。

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

这句代码写在了打开窗口后执行，但打开时没报错，正常的；报错是在我点控件的下拉小箭头时，e.Form.Controls("ComboBox1").ComboList下拉时，就报刚图片上的错误

 

请贴出出错代码

 

http://www.foxtable.com/webhelp/scr/1485.htm

 

甜老师，原因我找到了，是写了下面的代码才报错。可奇怪的是我点ComboBox1的下拉小剪头跟这句话也没关系呀？为什么我一点ComboBox1这个下拉窗口就会关闭呢？

5、将DropDownBox的Validating事件代码设置为：

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
    drp.CloseDropdown(False) '关闭下拉窗口
End If

 我测试了一下这个例子，没有问题。

 

http://www.foxtable.com/webhelp/scr/2466.htm

 

 你不要把代码写到窗口的validating或者combobox1的validating去。