If Tables("文件").Current.IsNull("原件") Then
    Messagebox.Show("无电子原件!")
Else
    If Forms("文件快览").Opened Then
        Dim web As WinForm.WebBrowser = Forms("文件快览").Controls("WebBrowser1")
        web.address = "\\\\192.168.0.1\\OA_Date\\FileDate\\电子原件\\" & e.Table.Current("原件")
    End If
End If

--------------------

请教两个问题：

一是：

上述代码的逻辑，是如果“原件”列空时，则提示“无电子原件”；否则用webbrowser打开

想改造为，如果“原件”列为非空时，用webbrower打开；否则无动作。

低级的问题，高手莫笑！！

二是：

  明明：DataTables("产品").DataCols("图片").DefaultFolder = \\\\192.168.0.1\\OA_Date\\FileDate\\电子原件\\

为什么这句：

  web.address = "\\\\192.168.0.1\\OA_Date\\FileDate\\电子原件\\" & e.Table.Current("原件")

改为：

web.address = DataTables("产品").DataCols("图片").DefaultFolder & e.Table.Current("原件")   不行呢？

1、

If Tables("文件").Current.IsNull("原件") = False Then

    Forms("文件快览").Open
    Dim web As WinForm.WebBrowser = Forms("文件快览").Controls("WebBrowser1")
    web.address = "\\\\192.168.0.1\\OA_Date\\FileDate\\电子原件\\" & e.Table.Current("原件")
End If

2、

afteropenproject写代码

DataTables("文件").DataCols("原件").DefaultFolder = "\\\\192.168.0.1\\OA_Date\\FileDate\\电子原件\\"