Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关于二维码问题


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

主题：[求助] 关于二维码问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/6/26 9:02:00 [显示全部帖子]

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim r As Row = Tables("二维码清单表").current
bar.Code = r("二维码编号")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,3) 'X Y 坐标 放大倍数
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Dim rx As new prt.RenderText
rx.Text = "二维码编号"
rx.X = 40
Doc.Body.Children.Add(rx)
Doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/11 14:45:00 [显示全部帖子]

For Each r As Row In Tables("电表数据汇总表").Rows
    Dim dr As DataRow = DataTables("二维码清单表").Find("二维码编号 = '" & r("二维码编号") & "' ")
    If dr IsNot Nothing Then
        dr("二维码使用") = "二维码已被使用"
        dr("一级地理区域") = r("一级地理区域")
        dr("二级地理区域") = r("二级地理区域")
        dr("电表设备号") = r("电表设备号")
    Else
        dr = DataTables("二维码清单表").AddNew
dr("二维码编号") = r("二维码编号")
        dr("二维码使用") = "二维码未被使用"
        dr("一级地理区域") = "未分配使用区域"
        dr("二级地理区域") = "未分配使用区域"
        dr("电表设备号") = Nothing
    End  If
Next
[此贴子已经被作者于2017/7/11 14:45:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/11 20:33:00 [显示全部帖子]

另外的指定内容指的是什么？既然都没有行，对空对象操作肯定有问题啦

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/11 21:31:00 [显示全部帖子]

查询不到说明【二维码清单表】根本就不存在这一行（dr），填入到哪里呀！？

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/19 22:16:00 [显示全部帖子]

……

rt.Cols(2).Width = 150
rt.Cols(3).Width = 150
rt.Cols(4).Width = 150
rt.Rows.Count = 11

rt.Rows(0).Height = 6
rt.Rows(1).Height = 42
rt.Rows(2).Height = 14
rt.Rows(3).Height = 42
rt.Rows(4).Height = 14
rt.Rows(5).Height = 42
rt.Rows(6).Height = 14
rt.Rows(7).Height = 42
rt.Rows(8).Height = 14
rt.Rows(8).Height = 42
rt.Rows(10).Height = 14

Dim ks As Integer = 5 ''val(e.form.controls("起始").Text)
'Dim zs As Integer = val(e.form.controls("张数").Text)
For c As Integer = 0 To 4
    Dim rx As New prt.RenderText '定义一个文本对象
    rx.Text = "分公司" '为文本对象设置内容
    rt.Cells(0, c).RenderObject = rx '将文本对象放置在单元格中
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
Dim x As Integer = 1
Dim y As Integer = 0
For i As Integer = (ks*25) To (ks+1)*25
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/20 17:41:00 [显示全部帖子]


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