- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教，选择模版表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21478)
-- 发布时间：2012/7/13 12:39:00
-- 请教，选择模版表
Dim drs As DataCol = DataTables("付款管理").DataCols("付款金额")
Dim JINE As Double
JINE=drs("付款金额")
Select Case JINE
Case >=100
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报表模板_付款通知单-江铜.xls")
Dim f2 As String = ProjectPath & "Reports\\付款通知单-江铜.xls"
Book.Build()
Book.Save(f2)
Dim Proc As New Process
Proc.File = f2
Proc.Start()
Case Else
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报表模板_付款通知单-贵冶.xls")
Dim fl As String = ProjectPath & "Reports\\付款通知单-贵冶.xls"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End Select
-- 发布时间：2012/7/13 16:20:00
--
此程序有误
-- 发布时间：2012/7/13 17:21:00
--
选择的这一条或者选择的几条，按金额生成报表
报表有两种，金额大于100万用上一级机关的报表，小于100万的用本级机关的报表
-- 发布时间：2012/7/13 17:35:00
--
根据选择的记录生成报表
金额大于100万的用上一级机关的报表
小于100万的用本级机关的报表
-- 发布时间：2012/7/13 17:35:00
--
选择几条，生成几条
-- 发布时间：2012/7/13 17:36:00
--
现在我是人工判断金额，大于100万的和小于100万的分别做了按钮，我的意思是合并在一个按钮，用程序判断
-- 发布时间：2012/7/13 17:40:00
--
我输入上面的程序，产生这样的报错
此主题相关图片如下：报错文件.jpg
-- 发布时间：2012/7/13 22:46:00
--
第一句就错了:Dim drs As DataCol = DataTables("付款管理").DataCols("付款金额")
按这样写 JINE=drs("付款金额") 因为没有指定某一行,肯定赋值不了
-- 发布时间：2012/7/16 12:15:00
--
有问题，全部用了一个模版，没有分出来
-- 发布时间：2012/7/16 12:29:00
--
If CurrentTable.Current("付款金额") >= 100 Then 不要用currenttable,如果焦点不在当前表咋办?写定表名.