以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何用sql视图生成子表数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136972) |
||||
-- 作者:chen_sheng -- 发布时间:2019/6/25 17:16:00 -- 如何用sql视图生成子表数据 1 有个主子表 主表的单号自动生成 |
||||
-- 作者:chen_sheng -- 发布时间:2019/6/25 17:25:00 -- 启动各位大师指导 |
||||
-- 作者:有点甜 -- 发布时间:2019/6/25 17:28:00 --
http://www.foxtable.com/webhelp/topics/1777.htm
|
||||
-- 作者:chen_sheng -- 发布时间:2019/6/25 17:46:00 -- 此参考只有加载并没有保存部分解释 |
||||
-- 作者:有点蓝 -- 发布时间:2019/6/25 20:38:00 -- 视图加载的数据只能通过SQL保存:http://www.foxtable.com/webhelp/topics/0696.htm |
||||
-- 作者:chen_sheng -- 发布时间:2019/6/26 8:51:00 -- ’Dim cmd As New SQLCommand ’Dim dt As DataTable ’Dim Cols1() As String = {"dh","hh","sl"} ’Dim Cols2() As String = {"dh","hh","sl"} ’cmd.C ’cmd.CommandText = "‘SE dh,hh,sl From {txmxhz}" dt = cmd.ExecuteReader() For Each dr1 As DataRow In dt.DataRows Dim dr2 As DataRow = DataTables("zzmjcomtxmxzb.zzmjcomtxmxhz").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next zzmjcomtxmxzb是主表,是不是可以这样再指导修改一下代码就可以了
|
||||
-- 作者:chen_sheng -- 发布时间:2019/6/26 8:53:00 -- Dim cmd As New SQLCommand Dim dt As DataTable Dim Cols1() As String = {"dh","hh","sl"} Dim Cols2() As String = {"dh","hh","sl"} cmd.C cmd.CommandText = "SELECT dh,hh,sl Fro m {mjcomtxmxhz}" dt = cmd.ExecuteReader() For Each dr1 As DataRow In dt.DataRows Dim dr2 As DataRow = DataTables("zzmjcomtxmxhz").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next zzmjcomtxmxzb是主表,是不是可以这样再指导修改一下代码就可以了
|
||||
-- 作者:有点甜 -- 发布时间:2019/6/26 9:40:00 --
上传具体实例,说明你要做到的效果。
|
||||
-- 作者:chen_sheng -- 发布时间:2019/6/26 10:17:00 -- 1 主表和子表均为sql表 2 子表需要从sql视图数据生成 具体见sql语句
|
||||
-- 作者:chen_sheng -- 发布时间:2019/6/26 10:25:00 -- 烦请帮忙尽快处理 [此贴子已经被作者于2019/6/26 15:31:14编辑过]
|