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

05-06 20:13