trim不起作用???通过Messagebox可以看出,怎么把都好全去掉呢???
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd1 As WinForm.TreeNode = trv1.SelectedNode
Dim dr As DataRow = DataTables("Team_Users").find("Name = '"& nd1.Text & "'")
messagebox.show(nd1.Text)
Dim nms As String
Dim s As String
For i As Integer = 0 To 42
s = DataTables("System_Permission_User").DataRows(i)("Permission")
nms = nms & "," & s
Next
Messagebox.show(nms)
dr("PermissionValue") = nms.Trim(",")
MessageBox.show(dr("PermissionValue") )