Foxtable(狐表) → 用户栏目 → 专家坐堂 → test


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

主题：test
帅哥哟，离线，有人找我吗？
sanny
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		test  发帖心情 Post By：2021/5/20 21:09:00 [只看该作者]





[此贴子已经被作者于2021/7/22 12:20:46编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/20 22:01:00 [只看该作者]

问过了：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=164267&skin=0

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/5/21 12:21:00 [只看该作者]

是
[此贴子已经被作者于2021/7/22 12:20:58编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/21 13:31:00 [只看该作者]

什么地方不对？请使用数据截图举例说明

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/5/21 15:25:00 [只看该作者]


老师，发图
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看


        Dim con As Integer = DataTables.Compute("sum(数量)","产品名称='" & current("产品名称") & "' and _sortkey < " & current("_sortkey"))
        Dim s As String
        Dim drs As List(Of  DataRow) = DataTables("表B").Select("产品名称= '" & current("产品名称") & "'","出货日期")
        Dim dr As DataRow
        Dim sl As Integer = current("数量")
        Do While drs.Count > 0
            dr = drs(0)
            If con >= dr("数量") Then
                con = con - dr("数量")
            Else
                Dim c1 As Integer = dr("数量") - con
                con = 0
                If s > "" Then s = s & " + "
                If c1 >= sl Then
                    s = s & dr("出货日期") & " /" & sl & "pc" & IIF(s.Contains("+"),"s","")
                    Exit Do
                Else
                    s = s & dr("出货日期") & " /" & c1 & "pcs"
                    sl = sl - c1
                End If
            End If
            drs.RemoveAt(0)
        Loop
        current("出货日期备注") = s
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/21 15:33:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0445.htm

Tables("表A").current("产品名称")
Tables("表A").current("xx列")
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/5/21 18:23:00 [只看该作者]


老师，如图出现的错误
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看

 Dim con As Integer = DataTables.Compute("sum(数量)","产品名称='" & DataTables("表A").current("产品名称") & "' and _sortkey < " & DataTables("表A").current("_sortkey"))
        Dim s As String
        Dim drs As List(Of  DataRow) = DataTables("表B").Select("产品名称= '" & DataTables("表A").current("产品名称") & "'","出货日期")
        Dim dr As DataRow
        Dim sl As Integer = DataTables("表A").current("数量")
        Do While drs.Count > 0
            dr = drs(0)
            If con >= dr("数量") Then
                con = con - dr("数量")
            Else
                Dim c1 As Integer = dr("数量") - con
                con = 0
                If s > "" Then s = s & " + "
                If c1 >= sl Then
                    s = s & dr("出货日期") & " /" & sl & "pc" & IIF(s.Contains("+"),"s","")
                    Exit Do
                Else
                    s = s & dr("出货日期") & " /" & c1 & "pcs"
                    sl = sl - c1
                End If
            End If
            drs.RemoveAt(0)
        Loop
        DataTables("表A").current("出货日期备注") = s
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/22 9:04:00 [只看该作者]

DataTables("xx表").Compute......

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/5/22 12:06:00 [只看该作者]

老师，已经把代码加进去了，可是结果不对呀


结果就是这样的：

产品名称      数量                      出货日期备注                                                             
A      4                  2021-05-01 :4pcs                    
A      7                  2021-05-01 :5pcs + 2021-06-01 :2pcs         
A      1                  2021-06-01 :1pcs                                 
A      5                  2021-06-01 :2pcs                                 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:分配数量.rar

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



[此贴子已经被作者于2021/5/22 12:10:53编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/22 13:43:00 [只看该作者]

Dim s As String
改为
Dim s As String = ""
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 5 次数据查询