窗口afterload
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim s As String
For Each c As Col In Tables("l_goods").cols
s=s & "|" & c.caption & "(" & c.name & ")"
Next
lieming.ComboList=s
导出按钮
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim nms As New List(of String)
For i As Integer = 0 To ckl.Items.count - 1 '获取已经勾选的列
If ckl.GetItemChecked(i) Then
nms.Add(ckl.Items(i).split("(")(1).replace(")","")) '这里对应5楼的用法进行解析
End If
Next
……