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

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

参考代码

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()

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

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()

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

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

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

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

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()

细节自行调整。

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