主题：选中有照片列的行近乎死机地慢

EncryptFile

用于加密文件，加密后的文件可用DecryptFile函数解密。

语法：

EncryptFile(InFile, OutFile, PassWord)

InFile：  要加密的文件
OutFile： 加密后生成的文件
PassWord：密码。

示例

EncryptFile("c:\temp\Logo.jpg", "c:\temp\Logo2.jpg", "fox123")
DecryptFile("c:\temp\Logo2.jpg", "c:\temp\Logo3.jpg", "fox123")

第一行代码将文件Logo.jpg加密成Logo2.jpg，第二行代码将Logo2.jpg解密成Logo3.jpg。
你可以发现Logo2.jpg是无法打开的，而Logo.jpg和Logo3.jpg可以正常打开。

我的办法是:
1.图片列改成文件型,用代码统一加入照片地址
2.照片全用"jpg"格式
3.电脑中装:ACDSee软件,可以及时查看照片,查看的办法就是点击任一行单元格右边的小按钮,打开后可以用上一条下一条查看
照片目录代码如下,两种方式任选
A:按钮中:
For Each dr As DataRow In DataTables("表B").DataRows
dr("照片") = "E:\照片\"&dr("身份证号") & ".bmp"
Next
B:
If e.DataCol.Name = "身份证号" Then
    If e.DataRow.IsNull("身份证号") Then
        e.DataRow("照片") = Nothing 
   Else
       e.DataRow("照片") = "E:\照片-:special:1:-&e.DataRow("身份证号") & ".jpg"
    End If
End If