Foxtable(狐表)用户栏目专家坐堂 → 报表事件代码问题


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

主题:报表事件代码问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 9:46:00 [显示全部帖子]

1、目前你遇到什么问题?输出的结果有什么问题?

 

2、这个意思? If e.DataRow("报告编号") > "" then

[此贴子已经被作者于2018/1/25 9:46:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 10:02:00 [显示全部帖子]

1、你模板如何命名?命名规则是什么,举例说明。

 

2、试试 If e.DataRow Is Not Nothing AndAlso e.DataRow.DataTable.Name = "表A" AndAlso e.Book.TempLate = e.DataRow("第一列") Then


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 10:25:00 [显示全部帖子]

If e.DataRow Is Not Nothing AndAlso e.DataRow.DataTable.Name = "表A" AndAlso e.Book.TempLate = e.DataRow("表单编号") Then

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 16:07:00 [显示全部帖子]

如果不会做,实例发上来

 

msgbox(e.Book.TempLate)
msgbox(e.DataRow.DataTable.name)
msgbox(e.DataRow("当前表单编号"))
If e.DataRow IsNot Nothing AndAlso e.DataRow.DataTable.Name = "T_Report" AndAlso e.Book.TempLate = e.DataRow("当前表单编号") Then
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code39
    Bar.Code = e.DataRow("当前表单编号")
    Bar.BarRatio = 2
    Bar.BarHeight = 10
    Bar.QuietZoneWidth = 2
    Bar.AddCheckSum = False
    Bar.DisplayChecksum = False
    Bar.DisplayStartStopChar = False
    bar.SaveImage(ProjectPath & "Images\BarCode2.gif",300)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 16:09:00 [显示全部帖子]

模板贴出来看看。

 

如果你的条码,是表头的,那不应该在buildDetail事件处理,应该把生成条码的代码,写到你8楼那里去。


 回到顶部