主题：升级后出现的问题

此主题相关图片如下：$}){nf_6bxvchn67zpmh7bv.jpg

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

 click事件写了什么代码？

更新最新版本看看.

发布前没问题，可以打开窗口，发布后就打不开了。弹出这个窗口。

我已经是最新的版本了。这个是菜单的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

做个例子发上来看看.

试试这样

 

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

找到原因了，不好意思了！升级的时候少COPY了一个文件！