Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据处理


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

主题：[求助]数据处理
帅哥哟，离线，有人找我吗？
xietan417
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		[求助]数据处理  发帖心情 Post By：2016/10/12 12:06:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：203.tm.png
图片点击可在新窗口打开查看

如图所示，我要根据表里PCS的数量来重新生成一个表
如第一条PCS的数量为30 ，那么新的数量表就是
BARCODE      SO-NO        CODE    

A1001          NP1906B     010158     
A1002          NP1906B     010158
A1003          NP1906B     010158
A1004          NP1906B     010158
A1005          NP1906B     010158
......
A1030          NP1906B     010158


这个怎么处理啊！整个表里的数据都生成在同一个表
[此贴子已经被作者于2016/10/12 12:07:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2016/10/12 14:55:00 [只看该作者]

蓝版帮看看啦！

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


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 15:37:00 [只看该作者]

Dim count As Integer = Tables("表A").Rows.Count
Dim r As Row
Dim dr As DataRow
DataTables("表A").StopRedraw
Dim bh As String
For i As Integer = 0 To count -1
    r = Tables("表A").Rows(i)
    If r.IsNull("PCS") = False Then
        bh = r("BARCODE").SubString(0,r("BARCODE").length - 3)
        For j As Integer = 2 To r("PCS")
            dr = DataTables("表A").AddNew
            dr("BARCODE") = bh & cstr(j).PadLeft(3,"0")
            dr("SO-NO") = r("SO-NO")
        Next
    End If
Next
DataTables("表A").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2016/10/12 15:45:00 [只看该作者]

Dim rs As Integer =  DataTables("出库扫描").DataRows.Count
For n As Integer = 0 To rs - 1
    Dim dr As Row = Tables("出库扫描").Rows(n)
    For m As Integer = 1 To dr("PCS")
        Dim r As Row = Tables("bsc").AddNew()
        Dim s As String = Tables("出库扫描").Rows(n)("BARCODE")
        Dim code As String = System.Text.RegularExpressions.Regex.Match(s,"[0-9.]+").ToString()
        Dim zm As String = System.Text.RegularExpressions.Regex.Match(s,"[a-zA-Z]+").ToString()
        
            r("BARCODE") = zm & code + m -1
            r("SO-NO") = dr("SONO")
            r("CODE") =dr("CODE")
            r("ITEM") = dr("ITEM")
    Next
Next

我这样写了！好像可以用！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 16:04:00 [只看该作者]

能用就行

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