以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何给多行文本框赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13196)
--  作者：hanxuntx
--  发布时间：2011/10/2 11:29:00
--  [求助]如何给多行文本框赋值
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT DISTINCT Role From {Roles}"

Dim dt As DataTable
dt = cmd.ExecuteReader()

Dim cmb As WinForm.TextBox 
cmb = e.Form.Controls("ztxet")

Dim ss As List (Of String)=dt.GetUniqueValues("","Role")

新增用户角色窗口，做到这一步了，如何给多行文本框赋值？
--  作者：hanxuntx
--  发布时间：2011/10/2 13:08:00
--  
窗口的AfterLaod事件添加代码

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT DISTINCT Group From {Groups}"

Dim dt As DataTable
dt = cmd.ExecuteReader()

Dim cmb As WinForm.TextBox 
cmb = e.Form.Controls("ztxet")

Dim ss As String=dt.GetComboListString("Group","")
    cmb.Value=ss.replace("|",vbcrlf)
[此贴子已经被作者于2011-10-2 13:08:09编辑过]
--  作者：mr725
--  发布时间：2011/10/2 14:20:00
--  

是这样吗：

..........

Dim ss As String=dt.GetComboListString("Group","")
Dim s,tx As String
For i As Integer = 1 To ss.split("|").length -1
    tx = tx & ss.split("|")(i) & vbcrlf
Next
cmb.Value = tx
--  作者：hanxuntx
--  发布时间：2011/10/3 9:09:00
--  
我上面的红色那句貌似可以了