以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  双击后鼠标会回到首行，如何保持在当前行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170603)
--  作者：xa139
--  发布时间：2021/7/31 17:43:00
--  双击后鼠标会回到首行，如何保持在当前行
If  Tables("mainrun_Table3").Current("状态") = "1"
Tables("mainrun_Table3").Current("状态") = 0
Else
Tables("mainrun_Table3").Current("状态") = "1"
End If
DataTables("runnozhujichen").save
DataTables("runnozhujichen").load
DataTables("模板").load
e.form.controls("textbox3").text = Tables("mainrun_Table3").Current("状态")


双击后刷新，鼠标会回到顶端首行，如何停留在双击的行

能否控制 空间单元格格式（字体颜色等）
[此贴子已经被作者于2021/7/31 17:44:35编辑过]
--  作者：有点蓝
--  发布时间：2021/8/1 19:48:00
--  
If  e.row("状态") = "1"
e.row("状态") = 0
Else
e.row("状态") = "1"
End If
e.form.controls("textbox3").text = e.row("状态")
dim id as integer = e.row("_identify")
DataTables("runnozhujichen").save
DataTables("runnozhujichen").load
DataTables("模板").load
dim idx as integer = e.table.findrow("_identify = " & id)
if idx > -1 then
e.table.position = idx
end if