以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  调用目标错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148902)
--  作者：nxqtxwz
--  发布时间：2020/4/18 10:00:00
--  调用目标错误

点击编辑记录按钮后，有时正常，有时提示调用目标发生异常。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:调用目标错误.zip
--  作者：有点蓝
--  发布时间：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")
--  作者：nxqtxwz
--  发布时间：2020/4/18 10:20:00
--  

function kcbxedit(){
    location="kcbxedit.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}
function del(){
    location="delete.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}
function addnew(){
    location="addnew.htm?page=" + table1.pagenumber;
}

function jdlkedit(){
    location="jdlkedit.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}


function kcbxexcel(){
    location="kcbxexcel.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}

 
--  作者：nxqtxwz
--  发布时间：2020/4/18 10:27:00
--  

老师您好：

第一个显示：

---------------------------
移动试验.Function
---------------------------
undefined
---------------------------
确定  
---------------------------

 

第二个显示：

204
--  作者：有点蓝
--  发布时间：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")
--  作者：nxqtxwz
--  发布时间：2020/4/18 11:04:00
--  
msgbox(cmd.CommandText)

显示：

 

---------------------------
移动试验.Function
---------------------------
Select * Fro   m (Select Row_Number() Over(Order by 出生日期) As [NO.],[_Identify],学生姓名,年级,班级,年龄,家长姓名,联系电话,地址 Fro  m 控缀保学) As a   Where [NO.]>= 1 And [NO.] <= 10
---------------------------
确定  
---------------------------

msgbox(e.GetValues("page"))    显示：0
msgbox(e.GetValues("key"))      显示：101
正确。
 
发现在输入筛选条件时，什么都不输入，直接按确定按钮后msgbox(cmd.CommandText)显示
 
---------------------------
移动试验.Function
---------------------------
Select * Fro  m (Select Row_Number() Over(Order by 出生日期) As [NO.],[_Identify],学生姓名,年级,班级,年龄,家长姓名,联系电话,地址 Fro  m 控缀保学) As a   Where [NO.]>= 1 And [NO.] <= 10                    
---------------------------
确定  
---------------------------

 

点确定后：

再次显示：

---------------------------
移动试验.Function
---------------------------
Select * Fro  m (Select Row_Number() Over(Order by 出生日期) As [NO.],[_Identify],学生姓名,年级,班级,年龄,家长姓名,联系电话,地址 Fro  m 控缀保学) As a   Where [NO.]>= 11 And [NO.] <= 20                    
---------------------------
确定  
---------------------------
 
msgbox(e.GetValues("page"))    显示：
---------------------------
移动试验.Function
---------------------------
undefined
---------------------------
确定  
---------------------------
 
什么条件都不输入能列出记录，但点编辑记录就出错。
输入条件筛选不出错。
--  作者：有点蓝
--  发布时间：2020/4/18 11:48:00
--  
我这边测试没有问题。做个有问题的实例发上来测试一下
--  作者：nxqtxwz
--  发布时间：2020/4/18 12:05:00
--  

实际上就是不输入筛选条件，列出记录后，点编辑按钮就出错，其它正常。

 
--  作者：有点蓝
--  发布时间：2020/4/18 14:18:00
--  
这个是之前上传的项目，我把1楼代码放进去测试没有问题


[此贴子已经被作者于2020/4/21 21:26:42编辑过]
--  作者：nxqtxwz
--  发布时间：2020/4/18 15:15:00
--  

老师您好，也不是一直有问题。

1、刚打开项目，不进行别的操作，不输入筛选条件列出记录后，点编辑按钮是可以的；

2、如果进行了别的操作，如第二次再不输入条件，列出记录后，点编辑按钮，这时就出错了。

3、输入条件筛选后，列出记录点编辑按钮好像没有发现出错。

 

我想：

1、会不会是js传递不畅，有时可能是服务器反应迟缓造成的，因为我用的是单位的服务器，都不懂服务器维护，状态不好，能不能把三段代码合在一起，不用js这种方式。

2、能否不允许不输入条件筛选，如果行的话加什么代码来控制。

 

谢谢老师。主要是web这种方式一出错就停止不动了，这个问题不解决了，没法用。

[此贴子已经被作者于2020/4/18 15:22:25编辑过]