以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】如何将多项组合框内多个值添加到表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70760)
--  作者：redfy
--  发布时间：2015/6/28 16:48:00
--  【求助】如何将多项组合框内多个值添加到表中
窗口"添加信息表"内有组合择框“combobx1”和”textbox1“和多项组合框"checkedcombobox1"，当多项组合框出现多个值1,2,3，4时，点击按钮后如何在表“产品信息”中新建多条信息对应表中“供应商”“名称”“型号”
--  作者：大红袍
--  发布时间：2015/6/28 16:51:00
--  
Dim Multi As String = Forms("窗口1").Controls("CheckedComboBox1").Text
Dim Values() As String = Multi.split(",")
For Each s As String In values
    msgbox(s)
Next
--  作者：redfy
--  发布时间：2015/6/29 8:43:00
--  

老师 能在具体些吗 新手上路不知道您给的这句应该怎么用 谢谢
--  作者：Bin
--  发布时间：2015/6/29 9:07:00
--  
例如 

Dim Multi As String = Forms("窗口1").Controls("CheckedComboBox1").Text 
Dim Values() As String = Multi.split(",")
For Each s As String In values
    dim dr as datarow = datatables("X").addnew
    dr(“供应商”)=e.form.controls("Combobox1").text
    dr("名称”)=e.form.controls("textbox1").text
     dr(“型号”)=s
Next