VB
VB学习者的乐园
posts - 34,  comments - 35,  trackbacks - 0

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

posted on 2014-11-16 20:18 天使爱比目鱼 阅读(...) 评论(...) 编辑 收藏