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

-- 关于当前表转换问题

老师好~~~我制作了两个带listview的窗口1，2，分别引用机械作业选配表1 和机械作业选配表2 两个表中当前行中装备代号列的代号作为需要显示

的机械。出现了一个问题，当我通过快捷按钮打开窗口1时，一切正常，然后我通过快捷按钮打开窗口2时，发现显示的和窗口1中的内容一样。

我设置了窗口3分别选定这两个表再打开窗口1，2，又是显示正常的~~~~ 图片点击可在新窗口打开查看

我思考是当前的表没有转换过来，不过好像用maintable =tables（）这个没有用，是因为 .Current.Index 判断的问题吗？如何转换当前表？

Dim q As Integer =Tables("机械作业选配表1").Current.Index

For Each dr As DataRow In DataTables("装备数据库").Select("装备代号 in (\'" & DataTables("机械作业选配表2").DataRows(q)("装备代号").replace(",","\',\'") & "\')","机械分类") \'列出所有装备代号

Dim Key As String = ProjectPath & "Attachments\\图片管理\\机械图片管理\\缩略图\\" & dr("图片") \'获取照片文件

lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行

vr.ToolTipText = dr("生产信息_生产厂家") \'设置此行的动态提示

vr.ImageKey = Key \'设置图片键值

vr.Group = dr("机械分类")

vr.Font = New Font("微软雅黑",8)

For Each cl As String In cls \'逐列取值

vr(cl) = dr(cl)

vr.Tag = dr

Dim q As Integer =Tables("机械作业选配表2").Current.Index