主题：想让窗口数据随光标移动显示

不知道各位大哥大姐有什么高招

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:窗口数据随光标移动显示.table

我想筛选一部分数据，在移动窗口中的光标到数据某一行时，窗口左下角的那边的显示也能跟着光标选择不同行，而更换不同的数据。。

你用的是datalist，现在已经过时了。

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("表A").FindRow(dr) '获得选定行在Tables("订单")中的位置
If Index >=0 Then '如果选定行在Tables("订单")中存在
    Tables("表A").Position = Index '定位到选定行
End If

将楼上的代码放在DataList1的CurrentChanged事件中

这么快就过时？
汗
那用啥？

倒，
有大工作了，
真过时了。。。。

    这在以前的DataList中是最常用的功能，我的每个DataList都有这样的代码。

    现在的新Table控件中，这样的功能如何实现？我试了一下，在Table控件的类型设为Normal,副本设为True时，单击或双击时好像都不能直接定位当前行？执行DoubleClick事件时，Table的当前行（current）并不是实际双击的行，这是怎么回事。

千万别想的太复杂，table的副本，当前行就是：CurrentTable.Current。用这个可以直接得到当前行：
Dim r as Row = CurrentTable.Current

     我想双击打开编辑窗口时，直接显示当前行的数据，该怎样实现？（这是最常用的功能了）。好像目前的Table并不能直接定位，难道也要像以前的DataList那样，用FindRow和行号再定位一次？

1、用原本，这样可以帮定
2、不用邦定，自己写代码，双击后，打开编辑窗口，将内容写入各个对应的编辑框，编辑结束后，单击保存按钮，将编辑框的内容写入表,这样还可以加入取消编辑的功能。

     原来用DataList时，最早我采用您的方法2，将内容逐个写入各个对应的编辑框，但无耐我的编辑窗口太多，每个窗口的输入框也太多，写这个可不是一件容易的事。后来，我认真学习了DataList中利用FindRow和行号进行当前行定位的功能，并进行了灵活运行，发现效率提高多了。现在，出现了改进版的Table控件，而且贺老师一下强调功能强大，本来想着既然是Table控件，定位当前行应该更简单了，但没想到，把Table作为副本时，不但没有比原来方便，竟然连基本的定位功能也没有了，实在想不通！不要告诉我把副本设为False,这样不方便！实在不行，就保留原来DataList的那个笨办法也行啊（就是利用FindRow和行号定位），也总比不能定位，用代码一个一个的写入输入框要快得多吧！
    Table的SQlTable方面的确功能很强大，比原来灵活很多，但在增强新功能的同时，不应把原来很常用的功能变得越来越麻烦，甚至取消了，有点顾此失彼的感觉！

     补充：我又试了一下，当副本设为False时，即使把表锁定也打不开DoubleClick事件，不知怎么回事？