以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新手求教改造代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71674)
--  作者：everybody
--  发布时间：2015/7/15 22:57:00
--  新手求教改造代码

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("原件")   不行呢？

 
--  作者：大红袍
--  发布时间：2015/7/15 23:00:00
--  

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
--  作者：everybody
--  发布时间：2015/7/15 23:01:00
--  
谢谢老大！！！！！！！！！！！！1
--  作者：大红袍
--  发布时间：2015/7/15 23:01:00
--  

2、

 

afteropenproject写代码

 

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

 

 

[此贴子已经被作者于2015/7/15 23:01:57编辑过]
--  作者：everybody
--  发布时间：2015/7/15 23:05:00
--  
理解帮助文件里面的这个解释了，！！！谢谢！