主题：[已解决]怎么把一串字符串导入表格？

Dim data As String = e.Form.Controls("TextBox1").Text

Dim reg As new System.Text.RegularExpressions.Regex("(?!(\*1\*)+).+(?=(\*\*)+)")

Dim mc As object = reg.Matches(data)

For i As Integer = 0 To mc.count - 1

    Dim nr As Row = Tables("表A").AddNew

    Dim cs() As String = mc(i).value.split(";")

    For j As Integer = 1 To cs.Length - 2

        nr(j-1) = cs(j)

    Next

Next