以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  chechedcombobox 的确定按钮事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79758)
--  作者：文道古月
--  发布时间：2016/1/8 14:09:00
--  chechedcombobox 的确定按钮事件

请问，

 

代码：Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("移动单元CheckedComboBox1")
        ccb.value = ccb.value.SubString(0,4)

 

checkedcombobox，点击确定按钮即将写入值时，我想对值自定义，这个代码应该写在哪里呢？
--  作者：大红袍
--  发布时间：2016/1/8 14:12:00
--  

TextChanged 或 SelectedIndexChanged

 

Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("移动单元CheckedComboBox1")
ccb.Text = ccb.Text.SubString(0,4)
--  作者：文道古月
--  发布时间：2016/1/8 14:21:00
--  

txtchanged事件，只能选择一个，选中多个的话就不行了，只能取第一个勾选的值

selsetedindexchanged事件，一勾选就报错（如下），加了if判断也不行

 

能不能在点击确定按钮的时候赋值？

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.2.1
错误所在事件：窗口,导出记录,移动单元CheckedComboBox1,SelectedIndexChanged
详细错误信息：
未设置对象变量或 With 块变量。

[此贴子已经被作者于2016/1/8 14:20:59编辑过]
--  作者：大红袍
--  发布时间：2016/1/8 14:53:00
--  
做例子上来。
--  作者：文道古月
--  发布时间：2016/1/8 14:59:00
--  

如附件：

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
--  作者：大红袍
--  发布时间：2016/1/8 15:07:00
--  
Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim str As String = ""
For Each s As String In ccb.text.split(",")
    str &= s.SubString(0,2) & ","
Next
Systemready = False
ccb.text = str.trim(",")
Systemready = True