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


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

主题:老大,有个问题实在搞不定,帮忙看看

帅哥哟,离线,有人找我吗?
don
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
don
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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}

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/12/26 0:35:00 [显示全部帖子]

以下是引用唐尸三摆手在2011-12-23 18:01:00的发言:

帮忙看下,如果需要生成B序的明细,也就是想知道B序某天的数量是有A序哪天的数量组合而成的,有什么高见吗


Dim nr As Row

Dim fl1,fl2 As String

Dim i,sum,n,n1,n2 As Integer

Dim drs ,drs1 As New List(of DataRow)

Dim t As Table = Tables("明细表")

Dim dt As DataTable = DataTables("表A")


fl1= "顺序 = 'A'"

fl2 = "顺序 = 'B'"

drs = dt.Select(fl1,"日期")

drs1 = dt.Select(fl2,"日期")


t.DataTable.DataRows.Clear

For Each dr As DataRow In drs1

    sum = dr("数量")

    For i = n To  drs.count-1

        If sum > n1 Then

            nr = t.Addnew

            nr("ID") = dr("_Identify")

            nr("日期") = drs(i)("日期")

            nr("顺序") = "A"

            If i = 0 OrElse sum-n1> drs(i)("数量") OrElse sum<n1 Then

                nr("数量") = drs(i)("数量")

            Else

                nr("数量") = sum-n1

            End If

            sum-=n1

            n1 = nr("数量") 

        Else

            nr = t.Addnew

            nr("ID") = drs1(n2+1)("_Identify")

            nr("日期") = drs(i-1)("日期")

            nr("顺序") = "A"

            nr("数量") = iif(drs(i)("数量")<n1,drs(i-1)("数量"),drs(i)("数量"))-n1            

            n1 = nr("数量")             

            n=i

            Exit For

        End If

    Next

    n2+=1

Next

[此贴子已经被作者于2011-12-26 0:54:55编辑过]

 回到顶部