以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请教：分隔符取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66698)

--  作者：feiyu988 --  发布时间：2015/4/12 11:45:00 --  请教：分隔符取值 一个角色表，用“\\”分割部门及职务，如何在窗口用combobox控件分别对部门及其下设职务进行取值。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目5.foxdb

--  作者：有点甜 --  发布时间：2015/4/12 11:47:00 --   用商业版做个例子，我这边没有开发版，：（

--  作者：feiyu988 --  发布时间：2015/4/12 11:51:00 --   商业版的  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目6.table

--  作者：有点甜 --  发布时间：2015/4/12 12:06:00 --   参考：  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目27.rar

--  作者：feiyu988 --  发布时间：2015/4/12 14:13:00 --   谢谢甜老师

--  作者：有点甜 --  发布时间：2015/4/12 15:17:00 --   第二段有点问题，要加一行： Dim bm As String = e.Form.Controls("ComboBox1").value Dim len As Integer =  bm.Length + 1 Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2") cmb2.Items.Clear() Dim vals As List(of String) = DataTables("角色设置").GetValues("角色","角色 Like \'" & bm & "\\%\'") For Each val As String In vals    cmb2.Items.Add(val.SubString(len)) Next