主题：新手求教改造代码

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

谢谢老大！！！！！！！！！！！！1

2、

 

afteropenproject写代码

 

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

 

 

理解帮助文件里面的这个解释了，！！！谢谢！