Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请高手指教


  共有13172人关注过本帖树形打印复制链接

主题：请高手指教
帅哥哟，离线，有人找我吗？
ybil
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/8 15:30:00 [显示全部帖子]

1行變3行？規格與數量一樣？

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/8 23:34:00 [显示全部帖子]

用查询表可否:

Select  件1名称 as  名称, 规格, 数量 FROM {表A} where 件1名称 >'' UNION ALL Select  件2名称 as  名称, 规格, 数量 FROM {表A} where 件2名称 >'' UNION  ALL Select  件3名称 as  名称, 规格, 数量 FROM {表A} where 件3名称 >''

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/8 23:49:00 [显示全部帖子]

Dim Sql As String 
Sql = "Select [_Identify], 件1名称 As 名称, 规格, 数量 FROM{表A} where 件1名称 >''"
Sql = Sql & " UNION ALL Select [_Identify],件2名称 As 名称, 规格, 数量 FROM{表A} where 件2名称 >''"
Sql = Sql & " UNION ALL Select [_Identify],件3名称 As 名称, 规格, 数量 FROM{表A} where 件3名称 >'' ORDER BY [_Identify]"
Dim cmd As New SQLCommand
cmd.CommandText = Sql
Tables("窗口1_Table1").DataSource = cmd.ExecuteReader()

[此贴子已经被作者于2011-6-8 23:53:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/10 16:48:00 [显示全部帖子]

看窗口

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:zd01.table
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/11 12:02:00 [显示全部帖子]

以下是引用blackzhu在2011-6-11 11:46:00的发言：
Select Case e.DataCol.Name
    Case "件1名称","件2名称","件3名称","规格","数量"
        DataTables("表B").DataRows.Clear()
        Dim nms() As String = {"件1名称","件2名称","件3名称"}
        For Each dr1 As DataRow In DataTables("表A").DataRows()
            For Each nm As String In nms
                If dr1.IsNull(nm) = False
                    Dim dr2 As DataRow = DataTables("表B").AddNew()
                    dr2("名称") = dr1(nm)
                    dr2("规格") = dr1("规格")
                    dr2("数量") = dr1("数量")
                End If
            Next
        Next
End Select


呵呵，这不是重复操作吗？
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/6/11 14:16:00 [显示全部帖子]

以下是引用blackzhu在2011-6-11 13:53:00的发言：
我测试过没有问题,不会重覆的.
我不是说表B记录会重覆。而是 此代码之效率问题
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询