表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）
谢谢！
加好友 
发短信
Post By：2015/8/6 12:59:00 [只看该作者]
