- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量打印移位 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99161)
-- 发布时间：2017/4/13 16:24:00
-- 批量打印移位
批量打印第一张是正确的 第二章就移位了 如果我把合计去掉就正常了 请问一下 我这段代码要怎样修改？
此主题相关图片如下：1.png
此主题相关图片如下：2.bmp
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:专业报表.foxdb |
For Each Col As DataCol In Dt.DataCols
rt.Cells(0,Count).Text = Col.Name
For r As Integer = 0 To dt.DataRows.Count-1
If r<dt.DataRows.Count Then
rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
Else
rt.Cells(r +1,1).Text = "合计"
rt.Rows(r+1).Height =10
If dr("合计列") >"" Then
Dim Multi As String = dr("合计列")
If Multi.Contains(Col.Name) Then
rt.Cells(r +1,Count).Text = dt.Compute("Sum(" & Col.Name & ")")
End If
End If
End If
Next
Count = Count + 1
Next
[此贴子已经被作者于2017/4/13 16:25:27编辑过]
-- 发布时间：2017/4/13 16:58:00
--
上面的代码
Dim i As Integer
改成
Dim i As Integer = 0
-- 发布时间：2017/4/14 7:51:00
--
谢谢！
