主题：[求助]多行文本框取值，经转换生成新数据赋值到表

参考代码

 

Dim str As String = "aaa" & vbcrlf & "bbb" & vbcrlf & "ccc"
Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each s As String In str.replace(chr(10), "").split(chr(13))
    Dim ndr As DataRow = dt1.addnew
    ndr("第一列") = s
    Dim fdr As DataRow = dt2.Find("第一列 = '" & s & "'")
    If fdr IsNot Nothing Then
        ndr("第二列") = fdr("第二列")
        ndr("第三列") = True
    End If
Next

Dim str As String = e.form.controls("TextBox1").Text

Dim str As String = "aaa" & vbcrlf & "bbb" & vbcrlf & "ccc"
Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each s As String In str.replace(chr(10), "").split(chr(13))
    Dim ndr As DataRow = dt1.addnew
    ndr("第一列") = s
    Dim fdr As DataRow = dt2.Find("第一列 = '" & s & "'")
    If fdr IsNot Nothing Then
        ndr("第二列") = fdr("第二列")
        ndr("第三列") = True
       
        Dim ffdr As DataRow = DataTables("表C").find("第二列 = '" & fdr("第二列") & "'")
        If ffdr IsNot Nothing Then
            ndr("第四列") = ffdr("第四列")
            ndr("第五列") = ffdr("第五列")
        End If
    End If
Next