Dim cc1 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")For Each s As String In cc1.Value.split(",") Dim nr As Row = Tables("表A").AddNew() nr("第一列") = sNextDataTables("表A").Save()