| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 出现【未声明名称“sqfun” 】 该如何处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69664) |
| -- 作者：lzzhx -- 发布时间：2015/6/9 8:23:00 -- 出现【未声明名称“sqfun” 】 该如何处理 请教：出现 未声明名称“sqfun” 该如何处理 |
| -- 作者：Bin -- 发布时间：2015/6/9 8:35:00 -- 你没声明这个变量的原因吧. 如果不是.删除Bin目录重新启动看看
|
| -- 作者：大红袍 -- 发布时间：2015/6/9 9:07:00 -- 应该是你删除了全局代码里的声明，但是在其它地方用到了这个变量。 |
| -- 作者：客人 -- 发布时间：2015/6/9 9:25:00 -- 老师：我试试看，现在还有个疑问要问一下 \'递归调用 Dim nd As WinForm.TreeNode = args(0) Dim dt As DataTable = args(1) Dim drs As List(of DataRow) drs = dt.Select("[上级部门] = \'" & nd.name & "\'") For Each dr As DataRow In drs Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("部门ID"),dr("部门")) cd.Tag = dr("部门ID") Functions.Execute("递归",cd,dt) Next 上面代码第 4 行中： [上级部门] 是整数 ， =后面 应该是 \'" & nd.name & "\'") 还是 " & nd.name )
|
| -- 作者：大红袍 -- 发布时间：2015/6/9 9:26:00 -- 都可以的，加单引号是通用的。 |
| -- 作者：客人 -- 发布时间：2015/6/9 11:32:00 -- 老师：我删除了 Bin目录，重新启动后还是有错： 1.程序运行时提示 找不到自定义函数 *** ，可函数明明在啊 2.重新打开 内部函数 编辑，关闭时有时什么也不提示，可有时提示 未声明名称“sqfun”
|
| -- 作者：大红袍 -- 发布时间：2015/6/9 11:33:00 -- 导出全部代码，搜索关键字 sqfun
看在哪里写了这个变量。 |
| -- 作者：客人 -- 发布时间：2015/6/9 11:34:00 -- 老师：今天我怎么老是被自动下线，回贴时提示 用户不存在或被锁定，提交不上去，重复提交一次就提交上去了，同时我就变成游客了？ |
| -- 作者：大红袍 -- 发布时间：2015/6/9 11:36:00 -- 以下是引用客人(61.178.*.*)在2015/6/9 11:34:00的发言：
老师：今天我怎么老是被自动下线，回贴时提示 用户不存在或被锁定，提交不上去，重复提交一次就提交上去了，同时我就变成游客了？
退出，重新登录。
输出所有代码搜索一下 http://www.foxtable.com/help/topics/1987.htm
|
| -- 作者：客人 -- 发布时间：2015/6/9 11:46:00 -- 找着了，前一段时间试了一个内部函数 ，如下，可最近再没动过这个函数 网络测试 NetTest
\'内部函数:网络测试
\'先测试本机网络系统状况 Select Case
sqfun.GetInternetConStatus.GetNetConStatus(args(0)) \'args(0)----网址 Case 1 Return
"没有网络" Case 2 Return
"采用调制解调器上网,网络不通" Case 3 Return
"采用网卡上网,网络不通" Case 4 Return
"采用调制解调器上网,已连通" Case 5 Return
"采用网卡上网,已连通" End Select
MessageBox.Show("网络线路中1414141员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
\'网络状态监测 \'Dim str As DataRow = DataTables("设置").DataRows(0) \'Dim ftp1 As new ftpclient \'ftp1.host= str("IP") \'ftp1.Port= str("Port") \'ftp1.Account = str("Account") \'ftp1.password = str("Password") \'Dim s As String =
"Provider=SQLOLEDB.1;Password=" & str("BasePassword")
& ";Persist Security Info=True;User ID=" &
str("User") & ";Initial Catalog=" & str("BaseName")
& ";Data Source =" & str("IP") \'GetConfigValue("DataSource","") \'Dim form As String = Args(0) \'这个参数可以取消 \'Forms(Form).Text = "正在连接网络,需要1分钟左右,请稍候......" If TryConnectHost(args(0)) = False OrElse
Network.Ping(args(0)) = False Then \'只加了这一句话 \'因为TryConnectHost只判断IP地址是否可以解析,局域网的所有IP都是可以解析的,所以加了Ping命令. \'
Forms(Form).Text = "网络线路中断或服务器拒绝访问,系统将退出,请联系管理员!"
MessageBox.Show("网络线路中断或服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) Return
"False" \'ElseIf ftp1.Connect = False \'
Forms(Form).Text = "FTP服务器拒绝访问,请联系管理员!" \'
MessageBox.Show("FTP服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) \' Return
"False" \'Else \' try \' Dim conn
As ADODB.Connection \' conn = New
ADODB.Connection \'
conn.ConnectionString = s \' conn.Open \'
Forms(Form).Text = Forms(Form).Name \' Return
"True" \' conn.close \' Catch ex As
Exception \'
Forms(Form).Text = Err.Description \'
MessageBox.Show("SQL数据库" & Err.Description & "请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) \' Return
"False" \' End try End If
|