在窗口的afterload 中用了如下代码:
Tables(e.Form.name & "_主表").Cols("附件").DataCol.ExtendType = ExtendTypeEnum.File '多值字段
DataTables(e.Form.name & "_主表").DataCols("附件").Remote = True
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.Host = ftp_Host
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.Account = ftp_User
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.password = ftp_Pwd
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.UTF8 = True '避免中文乱码
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.RootDir = "/Photo/工程图纸/" '设置根目录
然后在表中的currentchanged事件用下面的代码
If e.Table.Current IsNot Nothing Then
Dim web As WinForm.WebBrowser = e.Table.Form.Controls("WebBrowser1")
web.address = e.Table.Current("附件")
'web.address = "C:\DB003-01.pdf"
End If
结果却显示无效的URI,无法确定URI的格式,要怎么写才正确?
谢谢!