Dim s As String
Dim s2 As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.level = 1 AndAlso nd.Checked Then
Tables("产品表").current("品种") = nd.Text
For Each a As WinForm.TreeNode In nd.Nodes
If a.Checked Then
s2 = s2 & "," & a.Text
End If
Next
Tables("产品表").AddNew
Tables("产品表").current("品名") = s2
Exit For
End If
Next
不行,如何处理?