以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  升级后出现的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53899)

--  作者:ap9709130
--  发布时间:2014/7/17 17:04:00
--  升级后出现的问题


图片点击可在新窗口打开查看此主题相关图片如下:$}){nf_6bxvchn67zpmh7bv.jpg
图片点击可在新窗口打开查看

出现在这种问题,是什么原因,要怎么处理?


--  作者:有点甜
--  发布时间:2014/7/17 17:06:00
--  
 click事件写了什么代码?
--  作者:Bin
--  发布时间:2014/7/17 17:07:00
--  
更新最新版本看看.
--  作者:ap9709130
--  发布时间:2014/7/17 17:10:00
--  
发布前没问题,可以打开窗口,发布后就打不开了。弹出这个窗口。
--  作者:ap9709130
--  发布时间:2014/7/17 17:12:00
--  

我已经是最新的版本了。这个是菜单的CLICK 命令。发布后会弹出这个窗口:代码如下:

Dim ip As String
Dim ipFile As String = ProjectPath & "ip.txt"
    If Filesys.FileExists(ipFile) Then
        ip = FileSys.ReadAllText(ipFile)
End If
If Network.Ping("192.168.1.74",1000) Or Network.Ping(ip,1000) Then

Dim y As Integer = Date.Today.Year
    Dim m As Integer = Date.Today.Month
    Dim dt4 As New Date(y, m, 1)
    Dim dt5 As new Date(y,m,Date.DaysInMonth(y,m))
DataTables("报销明细表").LoadFilter = "申请日期 >= \'" & dt4 & "\' and 申请日期 <= \'" & dt5 & "\'"
 DataTables("报销明细表").Load
Forms("费用查询").open
Else
MessageBox.show("网络不通请重新操作!")
End If


--  作者:Bin
--  发布时间:2014/7/17 17:12:00
--  
做个例子发上来看看.
--  作者:有点甜
--  发布时间:2014/7/17 17:16:00
--  

试试这样

 

Dim ip As String
Dim ipFile As String = ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
    ip = FileSys.ReadAllText(ipFile)
End If
If Network.Ping("192.168.1.74",1000) OrElse (ip > "" AndAlso Network.Ping(ip,1000)) Then
   
    Dim y As Integer = Date.Today.Year
    Dim m As Integer = Date.Today.Month
    Dim dt4 As New Date(y, m, 1)
    Dim dt5 As new Date(y,m,Date.DaysInMonth(y,m))
    DataTables("报销明细表").LoadFilter = "申请日期 >= \'" & dt4 & "\' and 申请日期 <= \'" & dt5 & "\'"
    DataTables("报销明细表").Load
    Forms("费用查询").open
Else
    MessageBox.show("网络不通请重新操作!")
End If


--  作者:ap9709130
--  发布时间:2014/7/17 17:19:00
--  
找到原因了,不好意思了!升级的时候少COPY了一个文件!