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


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

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


加好友 发短信
等级：四尾狐 帖子：928 积分：7769 威望：0 精华：13 注册：2008/9/1 11:58:00 		老大，有个问题实在搞不定，帮忙看看  发帖心情 Post By：2011/12/22 10:09:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

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

要求在xls文件中，希望实现的结果是，前序的数量必须足够后序6天的数量时才会转下去，否则就不转，帮我看下思路怎么搞
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/12/22 10:22:00 [只看该作者]

看起来有点复杂，我抽空帮你看看吧。

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


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/12/22 17:14:00 [只看该作者]

俺也來截糊:
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


這裡修正一下:

.........

For i = 0 To na-1
    nr = dt1.AddNew
    nr("日期") = dr("日期").adddays(i+1)
    nr("顺序") = "B"
    nr("数量") = iif(i<na-1 ,nb,n-p-i*nb)
Next

dt1.save

............
[此贴子已经被作者于2011-12-22 20:41:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/12/22 17:19:00 [只看该作者]

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/12/22 21:40:00 [只看该作者]

呵呵，两位是顶级高手，欢迎截糊。

 

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/12/22 22:18:00 [只看该作者]

還有個思路:想法合成SQL:

select  DISTINCT 'A' as 顺序,41 as 12月_1, 41 as 12月_2,41 as 12月_3,  Null  as 1月_1,1000 as 合計  from{表A} UNION  select DISTINCT 'B' as 顺序,Null as 12月_1, 51 as 12月_2,51 as 12月_3,15 as 1月_1,1000 as 合計  from{表A}

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


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

在狐表里执行SQL估计难实现！
需判断来生成数据，靠拼SQL字符串，那不是又回到易表时代了！不现实！
若在SQL Server里写函数应行的！！
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
总数 13 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.05273 秒, 6 次数据查询