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


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

主题:[求助] 关于二维码问题

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


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

Dim ks As Integer = val(e.form.controls("Textbox1").Text)

Dim js As Integer = val(e.form.controls("Textbox2").Text)

For i As integer = ks to js

    Dim r As Row = Tables("二维码清单表").Rows(i)

 

 

 

Next


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


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

参考代码

 

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder '增加一个文本
Bar.Symbology = Barpro.Symbology.QRCode
Dim rt As new prt.RenderTable
rt.Cols.Count = 3 '设置列数

Dim ks As Integer = 0
Dim js As Integer = 10
Dim x As Integer = 0
Dim y As Integer = 0
For i As Integer = ks To js
    Dim r As Row = Tables("表A").Rows(i)
    bar.Code = r("第二列") '文本内容
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1.5) 'X Y 坐标 放大倍数
    rt.Cells(x, y).RenderObject = rg
    Dim rx As new prt.RenderText
    rx.Text = r("第二列")
    rt.cells(x+1, y).RenderObject = rx
    y += 1
    If y >=3 Then
        y = 0
        x += 2
    End If
Next
Doc.Body.Children.Add(rt) '添加到容器中
Doc.Preview()


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


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

自行设置单元格的宽、高,即可。

 

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder '增加一个文本
Bar.Symbology = Barpro.Symbology.QRCode
Dim rt As new prt.RenderTable
rt.Cols.Count = 3 '设置列数
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray)
Dim ks As Integer = 0
Dim js As Integer = 10
Dim x As Integer = 0
Dim y As Integer = 0
For i As Integer = ks To js
    Dim r As Row = Tables("表A").Rows(i)
    bar.Code = r("第二列") '文本内容
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1.5) 'X Y 坐标 放大倍数
    rg.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rt.Cells(x, y).RenderObject = rg
    Dim rx As new prt.RenderText
    rx.Text = r("第二列")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.cells(x+1, y).RenderObject = rx
    y += 1
    If y >=3 Then
        y = 0
        x += 2
    End If
Next
Doc.Body.Children.Add(rt) '添加到容器中
Doc.Preview()


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


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

控制缩放参数,注意,你的二维码内容不要太多,太多也不行。

 

http://www.foxtable.com/webhelp/scr/2090.htm

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/12 9:26: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
        r("二维码使用") = "二维码未被使用"
        r("一级地理区域") = "未分配使用区域"
        r("二级地理区域") = "未分配使用区域"
        r("电表设备号") = Nothing
    End  If
Next

 


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


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


[此贴子已经被作者于2017/7/12 10:05:48编辑过]

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


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

For Each r As Row In Tables("二维码清单表").Rows
    Dim dr As DataRow = DataTables("电表数据汇总表").Find("二维码编号 = '" & r("二维码编号") & "' ")
    If dr IsNot Nothing Then
        r("二维码使用") = "二维码已被使用"
        r("一级地理区域") = dr("一级地理区域")
        r("二级地理区域") = dr("二级地理区域")
        r("电表设备号") = dr("电表设备号")
    Else
        r("二维码使用") = "二维码未被使用"
        r("一级地理区域") = "未分配使用区域"
        r("二级地理区域") = "未分配使用区域"
        r("电表设备号") = Nothing
    End  If
Next

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


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

请上传一个具体的foxtable例子测试。


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


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

 

Dim doc As New PrintDoc
Dim ks As Integer = val(e.form.controls("起始").Text)
Dim zs As Integer = val(e.form.controls("张数").Text)

Dim tb As Table = Tables("二维码清单表")
Dim prs As Integer = 25 '每页20行
Dim count As Integer = tb.Rows.count-ks
Dim sidx As Integer = ks
If zs > 0 Then count = zs*25
For p As Integer = 0 To math.Ceiling(count / prs) - 1
    Dim rt As New prt.RenderTable
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    rt.Cols.count = 5
    rt.Cols(0).Width = 150
    rt.Cols(1).Width = 150
    rt.Cols(2).Width = 150
    rt.Cols(3).Width = 150
    rt.Cols(4).Width = 150
    For r As Integer = p * prs To math.min(count - 1,( p + 1) * prs - 1)
        Dim n As Integer = (r \ 5)*3
        Dim c As Integer = r Mod 5
        Dim cr As Row = tb.Rows(sidx+r)
        rt.cells(n,c).text = "中 国 移 动 惠 州 分 公 司"
        Dim rg As prt.RenderGraphics
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.QRCode
        bar.Code = cr("二维码编号")
        rg = new prt.RenderGraphics
        bar.DrawOnCanvas(rg.Graphics,0,0,1)
        rt.cells(n+1,c).RenderObject = rg
        rt.cells(n+2,c).text = cr("二维码编号")
    Next
    Doc.Body.Children.Add(rt) '添加到容器中
    rt.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
    rt.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
    If p <> math.Ceiling(Count / prs) - 1 '如果是最后一页
        rt.BreakAfter = prt.BreakEnum.Page '否则换页
    End If
Next
Doc.Preview()


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


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

细节自行调整。

 

http://www.foxtable.com/webhelp/scr/1170.htm

 


 回到顶部
总数 11 1 2 下一页