Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]关于二维码报表


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

主题：[讨论]关于二维码报表
帅哥哟，离线，有人找我吗？
lycliu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		[讨论]关于二维码报表  发帖心情 Post By：2018/4/18 11:29:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：二维码.bmp
图片点击可在新窗口打开查看
如果我要完成这样的一个报表，是不是要把帮助文件的专业报表看一遍？

 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/18 16:31:00 [显示全部帖子]

目前来说方法三是最适合的，我也做了一下，但是我有几个问题

1.方法三的数据都是绑定表的，窗口里面的SQL table的表好像是不能绑定的！
2.例子的二维码图片是怎么生成的呀
 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/18 17:04:00 [显示全部帖子]

生成报表就会卡死整个foxtable

 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/19 8:41:00 [显示全部帖子]

如果是这样子，那我做完这个系统，移植到别的电脑上面执行，其他电脑也要有ms office吗？

 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/19 11:25:00 [显示全部帖子]

我在窗口中显示报表，代码如下
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String = projectpath & "Attachments\条码.doc"
Dim f1 As String = ProjectPath & "Reports\条码.doc"
Dim mg As String = ProjectPath & "Images\二维码.wmf" '约定的图片文件
Dim tab As WinForm.Table = Forms("装箱单资料维护").Controls("明细表")
Dim wrt As new wordreport(Tables("明细表"),tm,f1)
For Each r As Row In Tables("明细表").Rows '逐行生成报表
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeModuleSize = 2 '二维码的放大倍数
    Bar.Code ="NO:" & r("装箱单ID") & vbcrlf & "项目号:" & r("项目号") & vbcrlf & "数量:" & r("数量") & vbcrlf & "物料编号:" & r("物料编号") & vbcrlf & "规格:" & r("规格")
    bar.SaveImage(mg,300)
    wrt.BuildOne(r)
Next
wrt.Build()
wrt.Quit() 
wbr.AddRess = f1


图片点击可在新窗口打开查看此主题相关图片如下：报表.png
图片点击可在新窗口打开查看
它都会提示这个未将对象引用
 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/19 14:50:00 [显示全部帖子]

上面的还是不行，然后我特地下载了ms office替换wps，狐表直接说我没安装word，或者安装不正确

 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/19 17:28:00 [显示全部帖子]

以管理员身份运行狐表就能解决上面的问题，然后我也测试了，报表只能绑定外面的表，我绑定不到窗口里面的表，以窗口里面的表就会显示实例没有传，还有我想问下他的二维码是代码生成的吗？我下面的代码也不能生成二维码呀！
Dim tm As String = projectpath & "Attachments\条码.doc"
Dim f1 As String = ProjectPath & "Reports\条码.doc"
Dim mg As String = ProjectPath & "Images\二维码.wmf" '约定的图片文件
Dim wrt As new wordreport(Tables("装箱单资料维护_明细表"),tm,f1)
For Each r As Row In Tables("装箱单资料维护_明细表").Rows '逐行生成报表
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeModuleSize = 2 '二维码的放大倍数
    Bar.Code ="NO:" & r("装箱单ID") & vbcrlf & "项目号:" & r("项目号") & vbcrlf & "数量:" & r("数量") & vbcrlf & "物料编号:" & r("物料编号") & vbcrlf & "规格:" & r("规格")
    bar.SaveImage(mg,300)
    wrt.BuildOne(r)
Next
wrt.Show() '显示报表

图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/20 10:08:00 [显示全部帖子]

老师，现在直接从SQL table表读取数据到二维码没有问题了，现在就是编辑报表时不能绑定SQL table，你说的打开窗口好像也不行，报表模板辅助设计器就只会显示窗口的所属表

 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/20 14:41:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看需求变了，现在直接用专业报表的知识做了，不过我觉得专业报表还简单

图片点击可在新窗口打开查看此主题相关图片如下：条码.png
图片点击可在新窗口打开查看
这里有个问题就是我一个循环里面的，为什么第一个二维码和后面两个的大小不一样的呢？
下面是我写的代码，前面定义的就不放上来了
 Bar.Code ="NO:" & r("装箱单ID") & vbcrlf & "项目号:" & r("项目号") & vbcrlf & "数量:" & r("数量") & vbcrlf & "物料编号:" & r("物料编号") & vbcrlf & "规格:" & r("规格")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,0.47)
    rg.x=75
    rg.y=1
    ra.children.Add(rg)    
 回到顶部
帅哥哟，离线，有人找我吗？
lycliu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00 		  发帖心情 Post By：2018/4/20 16:32:00 [显示全部帖子]

哦，谢谢解答，能具体一点怎么实现二维码大小一致吗？比如代码控制的话怎么写呢？

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询