以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示某个主键所在的行代码应该怎么写啊  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192327)

--  作者:hfapplehao
--  发布时间:2024/6/14 14:40:00
--  显示某个主键所在的行代码应该怎么写啊
目的:
想写个代码,第一步获取当前行所在的主键。
第二部。设置表视图,把第一步主键所在的行显示成表的第一行

dim diy as integer = currenttable.current("_identify")
currenttable.datatable.loadfilter="专业=\'" & "数学" & "\'"
currentable.datatable.load()

currenttable.TopVisibleRow =diy(这里不知道怎么写了,反正不成功)

求老师指点一二

--  作者:有点蓝
--  发布时间:2024/6/14 15:01:00
--  
这和主键没有什么关系

currenttable.TopVisibleRow = currenttable.current.index
--  作者:hfapplehao
--  发布时间:2024/6/14 16:02:00
--  
currenttable.TopVisibleRow = currenttable.current.index
这个代码运行后,新的表视图又回到了第一行了。不是想要的那个结果

比如我通过搜索找到符合条件的行,比如:第165行(主键值为a)。
然后我想实现的功能就是打开视图,第165行是新视图的第一行。

--  作者:有点蓝
--  发布时间:2024/6/14 16:09:00
--  
没看懂。【打开视图】是什么意思,截图看看。或者把完整代码发上来说明问题
--  作者:hfapplehao
--  发布时间:2024/6/14 16:41:00
--  

图1是使用环境,通过特定的字符筛选出符合条件的行

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


图2,是想要达到的效果,通过显示位置这个函数,来定位到某个符合条件的行

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
显示位置 这个函数的代码如下。
diy = CurrentTable.Current("_identify") \'获取主键
\'output.Show(diy)
Dim vname As String = CurrentTable.Current("船名") \'调整表视图
CurrentTable.DataTable.LoadFilter = "船名=\'" & vname & "\'"
CurrentTable.DataTable.Load()
CurrentTable.TopVisibleRow = currenttable.current.index

这个代码点完后 表视图老是跑到了第一行

--  作者:有点蓝
--  发布时间:2024/6/14 16:43:00
--  
去掉所有代码!!只保留下面一句

CurrentTable.TopVisibleRow = currenttable.current.index

--  作者:hfapplehao
--  发布时间:2024/6/14 16:49:00
--  
图片点击可在新窗口打开查看

执行起来没动静啊

--  作者:有点蓝
--  发布时间:2024/6/14 16:51:00
--  
如果行比较少,不出现滚动条情况下,是没有效果的。除非筛选不显示所有的其他行,只保留这一行
[此贴子已经被作者于2024/6/14 16:51:18编辑过]

--  作者:hfapplehao
--  发布时间:2024/6/14 17:00:00
--  
我主要的目的是定位到筛选出来的行,然后调整下表视图,这样可以看到符合条件行后面的内容。
diy = CurrentTable.Current("_identify") \'获取主键
\'output.Show(diy)
Dim vname As String = CurrentTable.Current("船名") \'调整表视图
CurrentTable.DataTable.LoadFilter = "船名=\'" & vname & "\'"
CurrentTable.DataTable.Load()

前面代码都没问题

CurrentTable.TopVisibleRow = currenttable.current.index
主要问题应该是出现在这段代码上。我需要定位到diy这个主键值所在的行为视图的第一行

--  作者:有点蓝
--  发布时间:2024/6/14 17:02:00
--  
diy = CurrentTable.Current("_identify") \'获取主键
\'output.Show(diy)
Dim vname As String = CurrentTable.Current("船名") \'调整表视图
CurrentTable.DataTable.LoadFilter = "船名=\'" & vname & "\'"
CurrentTable.DataTable.Load()
dim idx as integer = CurrentTable.findrow("_identify=" & diy)
CurrentTable.TopVisibleRow = idx