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


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

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


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 8:50:00 [显示全部帖子]

下面的n和nl分别表示什么意思？

For i As Integer = 0 To n 
        For il As Integer = 0 To nl 

假设这2个循环生成10个条码，意思是第1、2个条码分别放到表格第一行的第一列和最后一列，然后第3、4个条码分别放到表格第二行的第一列和最后一列，....，这样？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 9:32:00 [显示全部帖子]

答非所问。请贴出完整代码看看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 9:57:00 [显示全部帖子]

假设这2个循环生成10个条码，意思是第1、2个条码分别放到表格第一行的第一列和最后一列，然后第3、4个条码分别放到表格第二行的第一列和最后一列，....，这样？

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


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 10:24:00 [显示全部帖子]

解释一下，和我的问题有什么关系？

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


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 10:41:00 [显示全部帖子]

现在的代码有什么问题，生成的是什么效果？

最终需要的是什么效果？画图说明一下
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 13:44:00 [显示全部帖子]

            Dim nl As Integer = Tables("表B").Rows.Count - 1
            Dim m As Integer = 0
            Dim n As Integer = 0
            For i As Integer = 0 To 12
                For il As Integer = 0 To 2 ' Step 2     
                    Dim i m g As p rt.R en d e r I m age
                    Dim Bar As New B a r Code B u i l d er
                    Bar.Symbology = B a r p r o.S y m b o l o g y.C o d e 1 28
                    B a r.B a r R a t i o = 0.05
                    B a r.B a r H e i g h t = 6
                    Doc.Stacking = p r t.S t a c k i n g R u l e s E n u m.I n l i n e L e f t T o Right
                    bar.Code = 88982 * 00001 * 00001 * 00001
                    i mg = New p r t.R e n d e r I m age
                    i m g.Image = b a r.G e t I mage
                    If n Mod 2 = 0 Then
                        rt.Cells(m, 0).RenderObject = img
                    Else
                        rt.Cells(m, 8).RenderObject = img
                        m = m + 1
                    End If
                    n = n + 1
                Next
            Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107406 积分：546303 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/19 8:30:00 [显示全部帖子]

……
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
Dim nl As Integer = 5
Dim k As Integer = 0

For il As Integer = 0 To nl - 1 
    rt.Rows(il).Height = 16
    Dim img As prt.RenderImage
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code39
    ' Bar.BarRatio = 0.2
    Bar.BarHeight = 10
    bar.Code = "889820001002" & 001 + il
    Bar.AddCheckSum = False
    img = New prt.RenderImage
    img.Image = bar.GetImage
    If il Mod 2 = 0 Then
        rt.Cells(k, 0).RenderObject = img
    Else
        rt.Cells(k, 10).RenderObject = img '
         k = k + 1
    End If
Next
doc.Body.Children.Add(rt)
Doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

For il As Integer = 0 To nl - 1 
    rt.Rows(k).Height = 16
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询