- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]子表窗口中CheckedComboBox控件的下拉列表项目？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25274)
-- 发布时间：2012/11/5 16:47:00
-- [求助]子表窗口中CheckedComboBox控件的下拉列表项目？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4_1105.zip |
Dim cmb As WinForm.ComboBox = e.Sender
If cmb.Items.Count > 0 Then \'如果已经设置了项目
Return \'则返回
End If
Dim t As Table = cmb.BindTable \'获得绑定的Table
Dim c As Col = cmb.BindCol \'获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[表] = \'" & t.Name & "\' And [列] = \'" & c.Name & "\'")
If dr IsNot Nothing Then \'如果在项目表找到对应的行
cmb.Combolist = dr("列表项目") \'则设置列表项目
End If
Dim cmb As WinForm.CheckedComboBox = e.Sender
If cmb.Items.Count > 0 Then \'如果已经设置了项目
Return \'则返回
End If
Dim t As Table = cmb.BindTable \'获得绑定的Table
Dim c As Col = cmb.BindCol \'获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[表] = \'" & t.Name & "\' And [列] = \'" & c.Name & "\'")
If dr IsNot Nothing Then \'如果在项目表找到对应的行
cmb.Combolist = dr("列表项目") \'则设置列表项目
End If
-- 发布时间：2012/11/5 17:31:00
--
楼主，列表项目的分割符是 |
你在写入列表项目的值的时候，要这样 1|2|3|4|5