主题：ComboList

在控件的SelectedIndexChanged事件：这样写，如果不用输入助手，直接选择，就可以，但是用了输入助手就不行。

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim s As String = cmb.text
cmb.text = s.SubString(0,s.IndexOf(","))

这样可以了，还有个小问题，我输入一个后，如果不想继续，窗口撤销，会报错如下：

 

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.11.3.1
错误所在事件:窗口,委托支付申请窗口,ComboBox4,ValueChanged
详细错误信息:
长度不能小于 0.
参数名: length

 

怎么来判断呢？

老师，还遇到一个问题，当我两个账号时，不管选择哪个账号，账号都出来的第二个呢？

 
此主题相关图片如下：qq截图20200603133454.png

代码放到ValueChanged事件

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim s As String = cmb.text
If s.IndexOf(",") > -1 Then
    cmb.text = s.SubString(0,s.IndexOf(","))
End If

我取账号怎么取呢？取了户名，取对应的账号。

老师，SubString没用来，我这样也不行，账号，开户银行不出来。

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim cmb1 As WinForm.TextBox = e.Form.Controls("Textbox1")
Dim cmb2 As WinForm.TextBox = e.Form.Controls("Textbox04")
Dim s As String = cmb.text
Dim s1 As String = cmb1.text
Dim s2 As String = cmb2.text
If s.IndexOf(",") > -1 Then
    cmb.text = s.SubString(0,s.IndexOf(","))
    cmb1.text = s.SubString(1,s.IndexOf(","))
    cmb2.text = s.SubString(2,s.IndexOf(","))
End If

老师，换了一种方式，这样后面两个值也没出来

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim cmb1 As WinForm.TextBox = e.Form.Controls("Textbox1")
Dim cmb2 As WinForm.TextBox = e.Form.Controls("Textbox04")
Dim Multi As String = cmb.text
Dim Values() As String
Values = Multi.split(",")
cmb.text=Values(0)
cmb1.text=Values(1)
cmb2.text=Values(2)