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


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

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/8 16:14:00 [显示全部帖子]

逻辑不对吧,是三个名称放三行,如果是三行,那么规格和数量呢怎么弄,还是三个并入一个名称中.

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/9 8:15:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "件1名称"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件1名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select

Select Case e.DataCol.Name
    Case "件2名称"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件2名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select

Select Case e.DataCol.Name
    Case "件3名称"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件3名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/10 7:34:00 [显示全部帖子]

昨日老大给了例子,我就没有提,你试试这样,至于8楼的你用按钮试试:

Select Case e.DataCol.Name
    Case "件1名称","规格","数量"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件1名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select

Select Case e.DataCol.Name
    Case "件2名称","规格","数量"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件2名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select

Select Case e.DataCol.Name
    Case "件3名称","规格,"数量"
        Dim r1 As Row
        Dim r As Row = Tables("表B").AddNew()
        r1 = Tables("表A").Current
        r("名称")=r1("件3名称")
        r("规格")=r1("规格")
        r("数量")=r1("数量")
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/11 11:40:00 [显示全部帖子]

那简单你把狐爸的代码改入到表事件里去就可以了.

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/11 13:53:00 [显示全部帖子]

我测试过没有问题,不会重覆的.

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/11 13:58:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命名-1.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命名-2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/11 14:41:00 [显示全部帖子]

哦,我说呢,但是从逻辑上来讲他这个也不是很符合逻辑的呀,你说对吗?

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06836 秒, 5 次数据查询