主题：[求助]解除锁定状态

click或者doubleclick事件

If e.Col.name = "审核" Then
    e.Row("审核") = not e.Row("审核")
    If e.Row("审核") = True Then
        e.Row.locked = True
    End If
End If

参考

下载信息  [文件大小：296.0 KB  下载次数：34]

点击浏览该文件:粘贴新增n行.table

全局表事件，需要开启事件才有有效的。

http://www.foxtable.com/webhelp/scr/0671.htm

实例里面，就会保存图片的，如代码

FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

http://www.foxtable.com/webhelp/scr/2417.htm

身份证复印件怎么保留？你有扫描仪、高拍仪、摄像头吗？要拍照扫描才能保留复印件的。

回复11楼，只是做一个背景图片，然后再在上面显示读取到的字符而已。

这个不需要保存，根据保存的信息，任何时候都可以还原生成这种图片。

找两个身份证背景图片，然后画图片、画字符，即可，参考代码

Dim lj As String = "d:\test.jpg"
Dim bmp as new bitmap(lj)
Dim g = graphics.fromimage(bmp)
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
bmp.save("d:\123.jpg")

http://www.foxtable.com/webhelp/scr/1482.htm

看懂14楼代码，执行，看效果。

意思是把test.jpg（身份证背景图片）画出来，然后再画性别、地址等字符。

Dim r As Row = Tables("目录").AddNew

改成

Dim r As DataRow = DataTables("目录").Find("身份证号='" & pars(5) & "'")

If r Is Nothing Then r = DataTables("目录").AddNew

比如

http://www.eloam.cn/

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