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

我已经获得了一个比较完整的书籍类目，命名为“书目”，该表包含了书籍的各种信息，每本书都与唯一的：isbn

我建立一个自己的书库，命名为“书库”，现在做书库的图书录入工作

当输入isbn编码后，就会自动从后台的“书目”表中查找等于 isbn的数据，并将相关字段的值填入到“书库"的当前行。

参照帮助写了段代码，但好像不正确，不知道如何修改了，求助版主。

此主题相关图片如下：书目.jpg


此主题相关图片如下：书库.jpg


此主题相关图片如下：书籍新增.jpg

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 Row = Tables("淮河路书库").Current

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

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

    Next

Next

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

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