表格提取数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

服务端

Dim jo As New JObject
jo("tankno") = "xxx"

jo("obvd") = "xxx"

jo("网页内容") = wb.Build

e.WriteString(jo.tostring)

js:https://m.runoob.com/js/js-json.html

var result=submitAjaxFileds("list3save.htm?sureyidtimes="+sureyidtimes,"","tankno","obvd", "correct", "tovcubmeter", "density",false)

var obj = JSON.parse(result)

document.getElementById("p1").innerHTML=obj.网页内容

document.getElementById("tankno").value=obj.tankno

var key = table1.primarykey;

var result=submitAjaxFileds("list3save.htm?key=" + table1.primarykey+"&sureyidtimes="+sureyidtimes,"","tankno","obvd", "correct", "tovcubmeter", "density",false)

var obj = JSON.parse(result)

document.getElementById("p1").innerHTML=obj.压舱水表格

bindTable(); //必须有此函数，见下，不然无法触控操作

table1.primarykey = key

这样操作保存数据，点完按钮，至少要等3秒钟才能显示更改完毕，正常的吗？

[此贴子已经被作者于2022/7/8 15:22:03编辑过]

自己调试一下服务端执行了多长时间

使用浏览器开发者工具查看前端发送到接收数据花了多长时间

Dim jo As New JObject

Dim pr1 As DataRow = DataTables("压舱水").SQLFind("sureyidtimes ='" & e.getvalues("sureyidtimes") & "' and [_Identify] >'" & e.getvalues("key") & "'")

If pr1 IsNot Nothing Then

For Each s1 As String In {"tankno", "obvd", "correct", "tovcubmeter", "density"}

jo("s1") = pr1("s1")

End If

这样写，报错信息：列“s1”不属于表。哪里错了？

此主题相关图片如下：qq图片20220708221347.png

现在改成这样，会提示这样错误
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20220708221337.png

For Each s1 As String In {"tankno", "obvd", "correct", "tovcubmeter", "density"}

jo(s1) = pr1("s1").ToString()

jo("tankno") = pr1("tankno").ToString()

jo("obvd") = pr1("obvd").ToString()

jo("correct") = pr1("correct").ToString()

jo("tovcubmeter") = pr1("tovcubmeter").ToString()

jo("density") = pr1("density").ToString()

现在自己研究，如果用黄色部分方法报错，如果用下边的手动设置没问题，黄色部分应该怎么改？

s1是变量，不是字符串

jo(s1) = pr1(s1).ToString()

以下是引用有点蓝在2022/7/7 10:52:00的发言：

试试

function myfunction1(sureyidtimes){
if(document.getElementById("tankno").value==''){ //假如舱号为空，则传输srueyidtimes，生成表格
var result=submitAjaxFileds("list3save.htm?sureyidtimes="+sureyidtimes,"","tankno","obvd", "correct", "tovcubmeter", "density",false)
    document.getElementById("p1").innerHTML=result;
     bindTable();
}else{                                           //假如舱号不为空，则代表已经进入编辑状态，将传输主键

var key = table1.primarykey;
    var result=submitAjaxFileds("list3save.htm?key=" + table1.primarykey+"&sureyidtimes="+sureyidtimes,"","tankno","obvd", "correct", "tovcubmeter", "density",false)
    document.getElementById("p1").innerHTML=result;
     bindTable(); //必须有此函数，见下，不然无法触控操作

table1.primarykey = key
}
}

我点击保存按钮后，执行的.Add("btn1", "保存", "button").Attribute = "on c lick='myfunction1(""" & id & """)'"

这个函数，我记得以前点完保存之后，跳到下一行数据之后，光标会跳到相同的输入框进行输入，现在不能这样了，需要手工点一下才能录入，具体我发附件的视频中有示例。是不是我的bindTable()函数有问题，或者是setvalues()函数不对呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:lib.rar

bindTable只是绑定表格事件，setvalues只是给控件赋值。没看到有设置控件光标焦点的代码

那之前不知道怎么可以，老师能不能提供个思路怎样实现？

主题：表格提取数据问题