- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于从后台表a提取部分字段数据填充到当前表的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62424)
-- 发布时间：2014/12/31 15:07:00
-- [求助]关于从后台表a提取部分字段数据填充到当前表的问题
我想做一个图书管理软件
我已经获得了一个比较完整的书籍类目，命名为“书目”，该表包含了书籍的各种信息，每本书都与唯一的：isbn
我建立一个自己的书库，命名为“书库”，现在做书库的图书录入工作
当输入isbn编码后，就会自动从后台的“书目”表中查找等于 isbn的数据，并将相关字段的值填入到“书库"的当前行。
参照帮助写了段代码，但好像不正确，不知道如何修改了，求助版主。
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
此主题相关图片如下：书目.jpg
此主题相关图片如下：书库.jpg
此主题相关图片如下：书籍新增.jpg
-- 发布时间：2014/12/31 15:39:00
--
急等啊，自己顶一下。
-- 发布时间：2014/12/31 15:44:00
--
上例子,从数据库后台里查找,应该用SQLFIND
-- 发布时间：2014/12/31 15:46:00
-- 回复：（ehomecd）[求助]关于从后台表a提取部分字段数...
例子都没有 怎么帮？
-- 发布时间：2014/12/31 15:50:00
--
马上上例子
[此贴子已经被作者于2014-12-31 16:54:20编辑过]
-- 发布时间：2014/12/31 15:51:00
--
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
-- 发布时间：2014/12/31 16:00:00
--
将代码替换后，提示：
此主题相关图片如下：提示错误.jpg
-- 发布时间：2014/12/31 16:07:00
--
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
你的文本框参数没写进去，当然会有问题，用这代码吧
[此贴子已经被作者于2014-12-31 16:07:37编辑过]
-- 发布时间：2014/12/31 16:19:00
--
Dim isbn As WinForm.TextBox = e.Form.Controls("isbn")
Dim Cols1() As String = {"isbn","正题名","副题名","丛编题名","编著者","出版社名","出版时间","开本","价格"}
Dim Cols2() As String = {"isbn","正题名","副题名","丛编题名","编著者","出版社名","出版时间","开本","价格"}
Dim dr1 As DataRow = DataTables("书目").Find("[isbn] = \'" & isbn.value & "\'")
Dim dr2 As Row = Tables("淮河路书库").Current
If dr1 IsNot Nothing Then
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
End If
-- 发布时间：2014/12/31 16:39:00
--
谢谢