Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老大，有个问题实在搞不定，帮忙看看


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

主题：老大，有个问题实在搞不定，帮忙看看
帅哥哟，离线，有人找我吗？
gdlgh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00 		  发帖心情 Post By：2011/12/22 20:58:00 [显示全部帖子]

本想再截老总的糊的，dom兄上家先手占糊了，那我只能图片点击可在新窗口打开查看下次占上家吧！！哈。。。
呵。思路差不多相同！
真是好怀念已前易表那时光！！！
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00 		  发帖心情 Post By：2011/12/22 22:10:00 [显示全部帖子]

顶级那个帽就不敢带了！高手就粘了少少边！！图片点击可在新窗口打开查看虚荣一下，嘿
其实多做些练习题是好事，帮人的同时也是在提高自己！！
可惜生活是现实的，为生活奔波无时间呀！业余爱好一下，呵。。。
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00 		  发帖心情 Post By：2011/12/22 22:41:00 [显示全部帖子]

在狐表里执行SQL估计难实现！
需判断来生成数据，靠拼SQL字符串，那不是又回到易表时代了！不现实！
若在SQL Server里写函数应行的！！
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00 		  发帖心情 Post By：2011/12/22 22:54:00 [显示全部帖子]

呵。。交流下！刚做完才发现被截糊了！

Dim nr As DataRow
Dim tbA As DataTable=DataTables("表A")
Dim i,sum,yuInt As Integer
Dim dateInt As Date
DataTables("表A").DeleteFor("顺序 = 'B'")
Dim drs As New List(of DataRow)
drs = tbA.Select("[顺序]='A'","日期")
For Each r As DataRow In drs
    sum += r("数量")
    If sum>=51*6 Then
        yuInt +=sum-51*6
        sum = 0
        dateInt = r("日期")
        For i=1 To 6
            nr = tbA.AddNew()
            nr("日期") = dateInt.adddays(i)
            nr("顺序") = "B"
            nr("数量") = 51
        Next
     End If
Next
For i=1 To (yuInt+sum)\51
    dateInt = dateInt.adddays(i+6)
    nr = tbA.AddNew()
    nr("日期") = dateInt
    nr("顺序") = "B"
    nr("数量") = 51
Next
nr = tbA.AddNew()
nr("日期") = dateInt.adddays(1)
nr("顺序") = "B"
nr("数量") = (yuInt+sum) Mod 51

DataTables("表A").save
Dim b As New SQLCrossTableBuilder("统计表","表A")
b.HGroups.AddDef("顺序","顺序")
b.VGroups.AddDef("日期",DateGroupEnum.day)
b.Totals.AddDef("数量")
b.HorizontalTotal= True
b.Build
MainTable =Tables("统计表")
Tables("统计表").AutoSizeCols
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询