主题：[求助]关于从后台表a提取部分字段数据填充到当前表的问题

Dim isbn As WinForm.TextBox = e.Form.Controls("isbn")

Dim Cols1() As String = {"正题名","副题名","丛编题名","编著者","出版社名","出版时间","开本","价格"}

Dim Cols2() As String = {"正题名","副题名","丛编题名","编著者","出版社名","出版时间","开本","价格"}

For Each dr1 As DataRow In DataTables("书目").Select("[isbn] = isbn.value")

    Dim dr2 As DataRow = DataTables("淮河路书库").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next