按钮代码
Dim s As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If nd.Level = 1 Then
e.Form.DropTable.Current("发证机构") = nd.ParentNode .Text
e.Form.DropDownBox.Value = nd.Text
ElseIf nd.Level = 2 Then
s = s & "," & nd.Text
End If
End If
Next
e.Form.DropTable.Current("符合资质焊工") = s.trim(",")
e.Form.DropDownBox.CloseDropdown