Dim s AsString Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") ForEach nd As WinForm.TreeNode In trv.AllNodes If nd.level = 1 andalso nd.Checked Then
e.Form.DropDownBox.Value = nd.Text
for each a as WinForm.TreeNode Innd.AllNodes
If nd.Checked Then s = s & "," & a.Text EndIf
next tables("表A").current("第二列") = s
exit for EndIf Next e.Form.DropDownBox.CloseDropdown
加好友 
发短信
Post By：2023/10/18 10:39:00 [只看该作者]
