以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中的条码保存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72796)
--  作者：HJG_HB950207
--  发布时间：2015/8/6 12:59:00
--  窗口中的条码保存问题
表A有如下列：姓名，性别，条码

通过TABLE录入窗口，建一记录，并建一 BARCODE，将记录内容形成条码，将条码保存到D:\\条码FOX中，使用如下代码：

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCodE
Dim bc As WinForm.BarCode = e.Form.Controls("BarCode1")
Dim r As Row = Tables("表A").Current
bc.Code = "姓名:" &r("姓名")  & vbtab  &Chr(13)  & "性别:" &r("性别") 
If FileSys.DirectoryExists("d:\\二维码FOX") Then 
bar.SaveImage("d:\\二维码FOX\\" & r("姓名") & ".jpg")
End If

请教：
   1.按上代码保存到D:\\二维码FOX\\中的图片值为何为空置（123456），如何修改代码后图片值含该行的记录。
   2.图像导入后，如何将该文件的文件名，导入条码列，使条码列中自动显示D:\\二维码FOX\\姓名.JPG）
谢谢！
--  作者：大红袍
--  发布时间：2015/8/6 14:20:00
--  

参考代码

 


Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Dim r As Row = Tables("表A").current
bar.Code = r("第一列")
Dim name As String = "d:\\test\\" & r("第一列") & ".jpg"
bar.SaveImage(name)
r("第五列") = name