Foxtable(狐表) → 用户栏目 → 专家坐堂 → 调用目标错误


  共有4042人关注过本帖树形打印复制链接

主题：调用目标错误
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 10:09:00 [显示全部帖子]

lib/table.js文件发上来

没有传入正确的额页数和主键
msgbox(e.GetValues("page"))
msgbox(e.GetValues("key"))

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As Integer = e.GetValues("key")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 10:28:00 [显示全部帖子]

自己调试

Function kcbxedit(){
alert(table1.pagenumber);
alert(table1.primarykey);
    location="kcbxedit.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}

----------list
……
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 出生日期) As [NO.],[_Identify],学生姓名,年级,班级,年龄,家长姓名,联系电话,地址 From 控缀保学"
If flt > "" Then
    cmd.CommandText = cmd.CommandText & " where " & flt
End If

cmd.CommandText = cmd.CommandText & ") As a "
cmd.CommandText = cmd.CommandText & "  Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
msgbox(cmd.CommandText)


--------------edit
msgbox(e.GetValues("page"))
msgbox(e.GetValues("key"))

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As Integer = e.GetValues("key")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 11:48:00 [显示全部帖子]

我这边测试没有问题。做个有问题的实例发上来测试一下

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 14:18:00 [显示全部帖子]

这个是之前上传的项目，我把1楼代码放进去测试没有问题


[此贴子已经被作者于2020/4/21 21:26:42编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 16:06:00 [显示全部帖子]

进行了其它什么别的操作？

绝对和js文件没有关系，做网页开发完全避开js的使用是不可能的。

异常处理建议使用

1.项目事件BeforeShowErrorMessage在Foxtable捕获错误并即将显示错误信息前执行。
Functions.Execute("LogText",e.ex,e.Event)
e.Cancel = True

2.自定义函数logtext

Dim v  = Args(0)
Dim bu As new StringBuilder
bu.AppendLine(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff")) '记录出错时间
If Args.length > 1 Then
    bu.AppendLine("事件/函数: " & Args(1)) '记录出错的事件或者函数
End If
If Typeof v Is Exception Then '如果是Exception的异常类型,则递归获取所有的异常堆栈
    Do While v IsNot Nothing
        bu.AppendLine( v.Message &  vbcrlf & v.StackTrace)
        v = v.InnerException
    Loop
Else '其它情况只能传入错误的文本内容
    bu.AppendLine(v)
End If
Output.Logs("AppLogging").Add(bu.ToString)
Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) '日志位于当前项目目录里
Output.Logs("AppLogging").Clear
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 17:32:00 [显示全部帖子]

就是复制1楼的代码进去测试的当然没有任何变化。自己测试9楼的项目有没有问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/18 17:49:00 [显示全部帖子]

是测试9楼项目吗？我测试一样没有问题。如果是其它项目，请上传有问题的项目测试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/19 20:35:00 [显示全部帖子]

我测试没有问题。明天联系客服远程看看吧

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/19 23:00:00 [显示全部帖子]

联系客服，使用QQ远程协助处理

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110816 积分：564024 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/21 21:31:00 [显示全部帖子]

已经删除，建议改下数据库密码

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询