主题：[求助]如何给多行文本框赋值

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)