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")
新增用户角色窗口，做到这一步了，如何给多行文本框赋值？
窗口的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编辑过]
是这样吗：
..........
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