最近在学习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后重建索引。