1、上述文字拷贝进foxtable系统中。
2、外部引用O2S.Components.PDFRender4NET.dll
3、datacolchanged表事件代码:
Dim file As String = e.DataRow("路径文件名")
' MessageBox.Show(file)
If FileSys.FileExists(file) Then
Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open(e.DataRow("路径文件名"))
e.DataRow("页数量") = pdfFile.PageCount
Else
' e.DataRow("图像大小") = " "
e.DataRow("页数量") = 0
End If