主题：[求助] 横向显示后面数据

我想 横向显示 附件 上传 所示 的后面数据，请帮看看应该怎么设置？？

此主题相关图片如下：横向显示后面数据-1.png


此主题相关图片如下：横向显示后面数据-如此图所示.png

参考代码，细节自行调整

 

Dim dt1 As DataTable = DataTables("MRP报表")
Dim dtb As New DataTableBuilder("mrp统计表")
dtb.AddDef("成品代码", Gettype(String), 16)
dtb.AddDef("成品名称及规格", Gettype(String), 16)
Dim lbs As List(of String) = dt1.GetValues("子料类别")
For Each lb As String In lbs
    Dim dms As List(of String) = dt1.getvalues("成品代码", "子料类别 = '" & lb & "'")
    Dim max As Integer = 0
    For Each dm As String In dms
        Dim count As Integer = dt1.Compute("count(_Identify)", "成品代码 = '" & dm & "' and 子料类别 = '" & lb & "'")
        If count > max Then max = count
    Next
    For i As Integer = 1 To max
        Dim name As String = lb & "_" & lb & i
        dtb.AddDef(name & "_子料代码", Gettype(String))
        dtb.AddDef(name & "_子料名称", Gettype(String))
        dtb.AddDef(name & "_库存", Gettype(String))
        dtb.AddDef(name & "_在途采购", Gettype(String))
    Next
Next
dtb.Build()
Dim dt2 As Table = Tables("mrp统计表")
For Each dm As String() In dt1.GetValues("成品代码|成品名称及规格")
    Dim nr As Row = dt2.AddNew
    nr("成品代码") = dm(0)
    nr("成品名称及规格") = dm(1)
Next
MainTable= dt2

 

http://www.foxtable.com/webhelp/scr/2394.htm

 

第一次用狐表，这个代码要复制到哪里呀，能不能不用代码？

复制到命令窗口执行，或做个窗口按钮，放到按钮事件中。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:mrp.rar

是这样上传实例吧，还不怎么会用

请老师看一下，这个实例能用 不能代码，直接用数据 统计做出来吗？

只能用代码生成

请老师再帮我再看一下上面这个表，我想这样修改一下：当产品的 “子项类别”相同 时，只提取显示出“库存最低”的那一条; 如果库存都为0，随便显示一条即可！

截图说明实际效果