Foxtable(狐表)用户栏目专家坐堂 → ComboList


  共有4958人关注过本帖树形打印复制链接

主题:ComboList

帅哥,在线噢!
cd_tdh
  21楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/5/11 14:11:00 [只看该作者]

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

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


 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/11 14:22:00 [只看该作者]

放到valuechanged事件

 回到顶部
帅哥,在线噢!
cd_tdh
  23楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/5/11 14:38:00 [只看该作者]

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

 

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

 

怎么来判断呢?


 回到顶部
帅哥,在线噢!
有点蓝
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/11 14:49:00 [只看该作者]

判断一下

if s.IndexOf(",") > -1 then cmb.text = s.SubString(0,s.IndexOf(","))

 回到顶部
帅哥,在线噢!
cd_tdh
  25楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/6/3 13:38:00 [只看该作者]

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

 
图片点击可在新窗口打开查看此主题相关图片如下: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

[此贴子已经被作者于2020/6/3 13:41:10编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 14:08:00 [只看该作者]

这个代码只是取人名,和账号有什么关系?

 回到顶部
帅哥,在线噢!
cd_tdh
  27楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/6/3 14:30:00 [只看该作者]

我取账号怎么取呢?取了户名,取对应的账号。

 回到顶部
帅哥,在线噢!
有点蓝
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 14:56:00 [只看该作者]

msgbox(s.SubString(s.IndexOf(",")))

 回到顶部
帅哥,在线噢!
cd_tdh
  29楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/6/3 16:20:00 [只看该作者]

老师,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

[此贴子已经被作者于2020/6/3 16:33:24编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 16:35:00 [只看该作者]


 回到顶部
总数 32 上一页 1 2 3 4 下一页