共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：报表问题
1楼
xl 发表于：2010/5/2 23:25:00For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
t.Select(0,0,t.rows.count-1,0)
next
。。。。。。。。
一次性报表输出出错，请问：不知上述代码如何修改？谢谢！
[此贴子已经被作者于2010-5-3 9:15:17编辑过]
2楼
程兴刚 发表于：2010/5/2 23:49:00For …………next语句里面增加临时表，调取数据再打印模板！
3楼
易服 发表于：2010/5/2 23:49:00供参考
按钮代码
If DataTables.Contains("分组统计") '如果存在分组统计
Dim Names() AS String = {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
With Tables("分组统计")
.Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports-:special:1:-& Name & ".xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File =ProjectPath & "Reports-:special:1:-& Name & ".xls"
Proc.Start()
Next
Else
MessageBox.Show("先统计!", "提示")
End If
此主题相关图片如下：qq截图未命名.png
按钮代码
If DataTables.Contains("分组统计") '如果存在分组统计
Dim Names() AS String = {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
With Tables("分组统计")
.Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports-:special:1:-& Name & ".xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File =ProjectPath & "Reports-:special:1:-& Name & ".xls"
Proc.Start()
Next
Else
MessageBox.Show("先统计!", "提示")
End If
此主题相关图片如下：qq截图未命名.png[此贴子已经被作者于2010-5-3 0:11:59编辑过]
4楼
xl 发表于：2010/5/3 7:50:00谢谢两位，执行代码出现错误提示如下：
此主题相关图片如下：335.bmp
[此贴子已经被作者于2010-5-3 9:18:00编辑过]
5楼
xl 发表于：2010/5/3 9:05:00。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
[此贴子已经被作者于2010-5-3 9:15:57编辑过]
6楼
yangming 发表于：2010/5/3 10:35:00以下是引用xl在2010-5-3 9:05:00的发言：
。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
[此贴子已经被作者于2010-5-3 9:15:57编辑过]
427版可以用
7楼
xl 发表于：2010/5/3 11:27:00呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
这是BUG？
8楼
yangming 发表于：2010/5/3 12:30:00以下是引用xl在2010-5-3 11:27:00的发言：
呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
我原用的420版，特意下的427版，我的这两个版本都没发现你说的问题啊，是不是你的其它代码的问题？
9楼
xl 发表于：2010/5/3 14:47:00将上述代码隔离出来也显示错误信息。若在一个新文件中重新制作一个按纽不存在这个问题。着实奇怪。
10楼
xl 发表于：2010/5/3 16:58:00lxl老师帮忙解决了问题，原设计有问题：
For Each t As Table In Tables
If t.rows.count > 0 Then
t.Select(0,0,t.rows.count-1,0)
End If
next
共10 条记录, 每页显示 10 条, 页签:
[1]