以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148715)

--  作者:裴保民
--  发布时间:2020/4/14 9:29:00
--  关于报表
有一张报表,需要动态绑定字段,比如某一窗体字段有(收支类型、所属账户、记账日期、经手人四个字段)根据报表类型不同需要在报表的某一字段动态绑定,怎么设置一下呢?

图片点击可在新窗口打开查看此主题相关图片如下:截图09.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/4/14 10:14:00
--  
类似这种:http://www.foxtable.com/webhelp/topics/2626.htm,动态更改模板单元格的内容再输出报表
--  作者:裴保民
--  发布时间:2020/4/14 19:29:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看

ElseIf flxs.Checked Then
    mbwjwz = ProjectPath & "Attachments\\支出分类报表.xls"
    bbwjwz = ProjectPath & "Reports\\支出分类报表.pdf"
    Dim Book1 As New XLS.Book(mbwjwz)
    Dim fl1 As String = bbwjwz
    If Tables("支出明细窗体_zcTable").Current IsNot Nothing AndAlso Forms("支出明细窗体").Opened
        Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
        Sheet1(1,4).Value = "记账日期:" & bbrq 
If aszlx.Checked Then
  Sheet1(2,2).Value = "支出类型"
 Sheet1(2,3).Value = "[收支类型]"
ElseIf asszh.Checked
  Sheet1(2,2).Value = "所属账户"
 Sheet1(2,3).Value = "[所属账户]"
ElseIf ajzrq.Checked
  Sheet1(2,2).Value = "记账日期"
 Sheet1(2,3).Value = "[记账日期]"
ElseIf ajsr.Checked
  Sheet1(2,2).Value = "经手人"
 Sheet1(2,3).Value = "[经手人]"
End If
        Book1.Build() \'生成细节区
        Book1.SaveToPDF(fl1) \'\'保存为PDF文件
        Dim Proc1 As New Process \'打开PDF文件
        Proc1.File = fl1
        Proc1.Start()
    End If


红色的代码哪有问题为什么只能统计 "支出类型" 其他的都是空值呢?

[此贴子已经被作者于2020/4/14 19:31:21编辑过]

--  作者:有点蓝
--  发布时间:2020/4/14 21:05:00
--  
第一个勾选了,其它的当然就不会输出了
--  作者:裴保民
--  发布时间:2020/4/14 21:13:00
--  
取消了也是不显示,结果一样

图片点击可在新窗口打开查看此主题相关图片如下:截图01.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2020/4/14 21:15:02编辑过]

--  作者:有点蓝
--  发布时间:2020/4/14 21:19:00
--  
上传实例
--  作者:裴保民
--  发布时间:2020/4/14 21:25:00
--  
这是个综合实例无法上传
If aszlx.Checked Then
  Sheet1(2,2).Value = "支出类型"
 Sheet1(2,3).Value = "[收支类型]"
ElseIf asszh.Checked
  Sheet1(2,2).Value = "所属账户"
 Sheet1(2,3).Value = "[所属账户]"
ElseIf ajzrq.Checked
  Sheet1(2,2).Value = "记账日期"
 Sheet1(2,3).Value = "[记账日期]"
ElseIf ajsr.Checked
  Sheet1(2,2).Value = "经手人"
 Sheet1(2,3).Value = "[经手人]"
End If
这段代码有问题吗?
[此贴子已经被作者于2020/4/14 21:25:40编辑过]

--  作者:裴保民
--  发布时间:2020/4/14 21:36:00
--  
不是筛选条件,是改变字段名称的
--  作者:有点蓝
--  发布时间:2020/4/14 21:51:00
--  
没看出来有什么问题
--  作者:裴保民
--  发布时间:2020/4/14 22:01:00
--  
你为什么只能显示[收支类型],变为其他字段都不显示了呢?上面是全部代码

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:支出分类报表.xls

这是窗体

图片点击可在新窗口打开查看此主题相关图片如下:截图04.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2020/4/14 22:07:53编辑过]