| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]条码生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69799) |
| -- 作者：l1q2lq -- 发布时间：2015/6/11 9:39:00 -- [求助]条码生成 求教一下，关于条码的 Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code39 Bar.Code = "123456" Bar.BarWidth = 0.3 Bar.BarHeight = 8 Bar.SaveImage("c:\\data\\MyBar.jpg") 这个我如何把“123456”替换为我指定行列的内容，比如指定表A中我鼠标选择的行，列名为采购订单号； |
| -- 作者：大红袍 -- 发布时间：2015/6/11 9:42:00 -- Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code39 Bar.Code = Tables("表A").Current("第一列") Bar.BarWidth = 0.3 Bar.BarHeight = 8 Bar.SaveImage("c:\\data\\MyBar.jpg") |
| -- 作者：l1q2lq -- 发布时间：2015/6/11 9:42:00 -- 多谢 |