主题：[求助]扫描

 

换一台电脑（或者重装系统），下载最新版的试用版，可以打开程序测试。

 

扫描的话，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105909&skin=0

 

看看

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0

 

得到扫描的图片以后，使用saveimage保存图片，然后把路径赋值给表格

 

Dim str As String = projectpath & "attachments/abc.jpg"

图片控件.image.save(str)

Tables("某表").Current("某列") = "abc.jpg"

e.form.controls("Picturebox1").image.save(str)

代码不要写在afterLoad事件，请写到一个按钮里面，必须有图片，才能保存的。

PictureViewer1绑定表A第一列

 

Dim str As String = projectpath & "attachments/abc.jpg"

Dim scanner As new TwainGui.MainFrame(str)
scanner.Showdialog

Tables("表A").Current("第一列") = "abc.jpg"

Dim str As String = projectpath & "attachments/" & e.form.controls("textbox1").text
Dim scanner As new TwainGui.MainFrame(str)
scanner.Showdialog
Tables("表A").Current("第一列") = e.form.controls("textbox1").text

Dim str As String = e.form.controls("textbox1").text  '如 d:\test.jpg
Dim scanner As new TwainGui.MainFrame(str)
scanner.Showdialog
Tables("表A").Current("第一列") = e.form.controls("textbox1").text