以文本方式查看主题
- 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了一个文件!
|