主题：[求助]关于从后台表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.Text & "'")

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

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

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

    Next

Next

你的文本框参数没写进去，当然会有问题，用这代码吧