在窗口的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的格式，要怎么写才正确？

谢谢！

浏览器需要安装预览PDF的插件吧，还有你空间需要支持PDF的扩展

1、必须把pdf下载下来才能打开；

2、直接指定address的路径，但必须是本地的。

可以了，但在每次切换行显示不同的pdf文件时，屏都要闪一下，用了两种红色的代码都无法控制，

If e.Table.Current IsNot Nothing  AndAlso e.Table.Current("附件") IsNot Nothing Then
    Dim s As String = e.Table.Current("附件").replace("/","\\")
    Dim ftp As FTPClient = e.Table.Cols("附件").DataCol.FTPClient
    Dim path As String = ProjectPath & "RemoteFiles" & s
    ftp.Download(e.Table.Current("附件"), path, False)
    \'e.Table.Form.StopRedraw
    LockBaseMainForm()  \'锁定主界面
    Dim web As WinForm.WebBrowser = e.Table.Form.Controls("WebBrowser1")
    web.address = path
    \'e.Table.Form.ResumeRedraw
    UnLockBaseMainForm()  \'锁定主界面
End If

要怎么样做才不会闪？

加入msgbox，有可能是是你currentChanged触发了多次了吧？

写到positionchanged或者click看看。我测试不会闪

此主题相关图片如下：a1.gif

同样会闪，不知道为什么？

这样试试

web.visible = True

这个是没办法的。要不你试试嵌入窗口