老师好~~~我制作了两个带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)
Next
vr.Tag = dr
Next
Dim q As Integer =Tables("机械作业选配表2").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)
Next
vr.Tag = dr
Next
加好友 
发短信
Post By：2017/4/19 22:20:00 [只看该作者]
