- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表C如何实现根据表A，表B生成记录？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177477)
-- 发布时间：2022/5/24 9:55:00
-- 表C如何实现根据表A，表B生成记录？
需求：表C实现根据表A，表B生成记录
已知条件：
表A学员 姓名
1 张三
2 李四
3 五王
表B
课程编号 课程
K-01 语文
K-02 数学
K-03 物理
批量生成结果，不是一个一个录入
学员 姓名 课程编号 课程
1 张三 K-01 语文
1 张三 K-02 数学
1 张三 K-03 物理
2 李四 K-01 语文
2 李四 K-02 数学
2 李四 K-03 物理
3 五王 K-01 语文
3 五王 K-02 数学
3 五王 K-03 物理
-- 发布时间：2022/5/24 10:06:00
--
用sql，然后填充：http://www.foxtable.com/webhelp/topics/2137.htm
select 学员,姓名,课程编号,课程 from {表A},{表B}
-- 发布时间：2022/5/24 10:53:00
--
Dim cmd As New SQLKCommand
Dim dt As DataTable
\'Dim tCols() As String = {"学号", "姓名", "课程编号", "课程"}
Dim sCols() As String = {"学号", "姓名"}
Dim fCols() As String = {"课程编号", "课程"}
Dim dCols() As String = {"学号", "姓名", "课程编号", "课程"}
cmd.C
cmd.CommandText = "SE1ECT 学员, 姓名, 课程编号, 课程 From {表A}, {表B}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim nr As DataRow = DataTables("表C").AddNew()
For i As Integer = 0 To sCols.Length - 1
nr(dCols(i)) = dr(sCols(i))
Next
Next
代码执行，报错，如下提示，请老师，帮纠正，谢谢
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.23.2
错误所在事件：
详细错误信息：
至少一个参数没有被指定值。
-- 发布时间：2022/5/24 10:55:00
--
表名或列名错误
-- 发布时间：2022/5/24 10:55:00
--
什么数据库？
-- 发布时间：2022/5/24 11:04:00
--
ACCESS
-- 发布时间：2022/5/24 11:12:00
--
简单直接，做个例子，连同数据库文件，发上来测试。
-- 发布时间：2022/5/24 11:13:00
--
SQL语句，学员错，已改为正确，学号 cmd.CommandText = "SE1ECT 学号, 姓名, 课程编号, 课程 From {表A}, {表B}"
但执行没报错，表C没数据，只是增加行，没把表A和表C的数据合并加入
-- 发布时间：2022/5/24 11:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成记录.zip |
-- 发布时间：2022/5/24 11:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:生成记录.zip |