以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复选框問題  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46884)

--  作者:JoyGum
--  发布时间:2014/2/28 17:03:00
--  [求助]复选框問題
窗口的Table1綁定表A,有复选框,如何將复选框的选中标记第一列的值添加到TextBox1,而值與值間用,號區隔。
--  作者:Bin
--  发布时间:2014/2/28 17:07:00
--  
Dim s As String
For Each r As Row In Tables("XX").GetCheckedRows
    s=s & "," & r("第一列")
Next

e.Form.controls("XX").text=s.trim(",")

--  作者:lsy
--  发布时间:2014/2/28 17:10:00
--  
Dim rs As List(Of Row) = Tables("订单表").GetCheckedRows
Dim s As String
For Each r As Row In rs
    s + = r("产品编号") & ","
Next
e.Form.Controls("TextBox1").Text = s.Trim(",")

--  作者:JoyGum
--  发布时间:2014/2/28 17:12:00
--  
剛有看到Bin老師給狐友例子,因是开發版無法參考,所以才提出,謝謝!
--  作者:JoyGum
--  发布时间:2014/2/28 17:14:00
--  
太感恩了,感謝2位老師的指導。