Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表序号


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

主题:[求助]专业报表序号

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106922 积分:543829 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/3 11:40:00 [显示全部帖子]

For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("订单编号 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("订单编号 = '" & pd & "'")
    End If
    
    dim kkk as integer = 1
    For Each dr As DataRow In drs '逐行打印此产品的订单
        
        cnt = rt.Rows.Count 
        For r As Integer = p * prs To math.min(rt.Rows.Count - 1, ( p + 1) * prs - 1)
        'For c As Integer = 0 To tbl.Cols.Count - 1
            rt.Cells(cnt, 0).Text = kkk
            rt.Cells(cnt, 1).Text = dr("名称")
            rt.Cells(cnt, 2).Text = dr("规格")
            rt.Cells(cnt, 3).Text = dr("数量")
            rt.Cells(cnt, 4).Text = dr("面积")
            rt.Cells(cnt, 5).Text = dr("单价")
            rt.Cells(cnt, 6).Text = dr("金额")
            rt.Cells(cnt, 7).Text = dr("加工要求")
    Next
kkk += 1
    Next

 回到顶部