最近在学习ProductsDemo.Win,有一些体会记录下来,大家分享:
在Contacts模块:
在Private Sub UpdateCurrentContact()过程添加一句:InitIndex(DataHelper.Contacts)'根据Contacts数据库重建索引
在Public Sub SetupGrid(ByVal list As List(Of AlphaIndex), ByVal grid As GridControl)过程添加代码后如下:
Dim view As GridView = TryCast(grid.MainView, GridView)
view.Columns.Clear()'清理索引列
view.Columns.AddVisible("Index")
grid.DataSource = list
AddHandler view.FocusedRowChanged, AddressOf view_FocusedRowChanged
实现更改Contacts的Last Name后重建索引。