Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何通过ListView定位到表中某行数据记录?


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

主题：如何通过ListView定位到表中某行数据记录?
帅哥哟，离线，有人找我吗？
flashv
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 11:07:00 [只看该作者]

Dim dr As DataRow = vr.tag '获取此行对应的DataRow
Dim ps As Integer = Tables("商品资料").FindRow("商品条码='" & vr("商品条码") & "'")
If ps >= 0 Then
    Tables("常用商品_table1").Position = ps
    
End If

没能定位到指定的商品,感觉是乱定位.
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/15 11:09:00 [只看该作者]

1、条码数据有问题
2、没有加载对应的数据
3、有重复的条码
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 11:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：2023-6-15 11-36-55.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2023-6-15 11-37-13.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2023-6-15 11-37-22.jpg
图片点击可在新窗口打开查看

条码数据应该是没有问题的,如上图.
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 11:58:00 [只看该作者]

看起来是生效了,位置的确是移动动了,但却没按照"商品条码"移动到指定数据.

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/15 12:02:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 12:04:00 [只看该作者]

实例不太方便上传,涉及到店面营收数据.
找不到问题出在哪啊?

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行

If vr Is Nothing Then '如果不存在当前行,也就是没有选定任何一行
    Return
End If

Dim dr As DataRow = vr.tag '获取此行对应的DataRow
Dim ps As Integer = Tables("商品资料").FindRow("商品条码='" & vr("商品条码") & "'")
'MessageBox.Show(vr("商品条码"))

If ps >= 0 Then
    Tables("常用商品_table1").Position = ps
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 12:24:00 [只看该作者]

Dim ps As Integer = Tables("商品资料").FindRow("商品条码='" & vr("商品条码") & "'") '获取商品条码

Tables("常用商品_table1").Position = ps
上面这段代码是跟据"商品条码"定位?
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 12:53:00 [只看该作者]

我知道了,跟数据表的排序有关.取消排序,程序执行就是正确的.
也就是,并没有按"商品条码"来执行定位.

排序实际是需要的,现在应该怎么解决?
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/15 13:38:00 [只看该作者]

我测试可以，和排序没有什么关系。

不需要上传原项目。新增一个项目，导出部分测试数据作为内部表测试，做个有问题的例子发上来
 回到顶部
帅哥哟，离线，有人找我吗？
flashv
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00 		  发帖心情 Post By：2023/6/15 15:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：2023-6-15 15-19-31.jpg
图片点击可在新窗口打开查看

如上图,只要取消排序,就正常了.
 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询