IDC资讯中心
使用Bookmarks和SelBookmarks跟踪记录
Bookmarks和SelBookmarks提供了标记记录的一种手段。当编写应用程序中的特定功能（诸如允许最终用户手工地选择多个不相邻的记录，进行所选记录的大批更新）时，这就很有必要。在这些情形中，需要标记哪些记录已被选择，因此可以使用SelBookmarks集合及其属性。
有两个函数，分别是CellText和CellValue方法，需要标记才能正确执行。
标记用户的选择
SelBookmarks集合包含所有选定的记录的书签。当最终用户手工选择记录时（即在单击时按住CTRL键），每一个选定的记录的书签都会加入到该集合中。使用标准的循环，用户可以知道已经选定了什么，也可以保存书签（因为可能需要恢复某个值），以及执行操作：
DimiasInteger计数器
DimintCountAsInteger
intCount=DataGrid1.SelBookmarks.Count-1
ReDimarrSelBK(intCount)声明用于保存书签的数组。
Fori=0TointCount
ArrSelBK(i)=DataGrid1.SelBookmarks(i)
在此处执行操作。如果该操作必须被
取消，则退出该循环，然后使用该数
组来取消这些更改。
Nexti
通过在程序中添加到SelBookmarks集合来选择记录
通过将记录添加到这个集合，也可以在程序中选定记录。例如，可能有一个显示指定的客户所有订货的网格。如果要高亮显示该客户花费超过$100的所有记录，则对记录进行过滤，并将结果书签添加到SelBookmarks集合。
DimrsAsRecordset
Setrs=Adodc1.Recordset
WhileNotrs.EOF
Ifrs!SupplierID=12Then
DataGrid1.SelBookmarks.Addrs.Bookmark
EndIf
rs.MoveNext
Wend
显示计算结果字段
假设在表中有一个名为"Price"的字段，并且想使用本地税率来计算表中每一项的税费。这就是一个计算结果字段，可以通过修改DataSource的查询来计算这个值，并把这个值返回给DataGrid控件。
要在DataGrid控件中创建一个计算结果字段
1.确认在机器上已为Northwind数据库建立了一个OLEDB数据源；如果还没有创建这样的一个数据源，请按照“创建Northwind的OLEDBData连接”的步骤操作。
2.在窗体上放置一个ADOData控件和一个DataGrid控件。
3.将ADOData控件的ConnectionString属性设置为Northwind的数据源。
4.设置ADOData控件的RecordSource属性。在“属性”窗口中，单击“记录源”并输入SelectProductName,UnitPrice,(UnitPrice*.082)AsTaxFromProducts。
5.将DataGrid控件的DataSource属性设置为这个ADOData控件。
6.运行该工程。
与类模块一起使用DataGrid控件
如果想要访问以自定义格式或以ODBC驱动程序不直接支持的格式存放的数据，可以创建一个类来封装该数据。然后可以编写该类的自定义函数来检索这些数据。这样该类就变成了一种数据源，可以被任何数据使用者（如DataGrid控件）使用。
在这个类模块的Initialize事件中，首先通过声明一个作为New ADODB.Recordset的变量，来创建一个ADODBrecordset对象。在创建了这个recordset对象后，再添加字段，每个数据源中的每个字段都要加入。然后使用合适的数据填充这个记录集。
注意也可以使用OLEDB示例提供者来创建一个数据源。关于OLEDB示例提供者的详细信息，请参阅“创建带有数据提供方的部件”。
类模块有一个GetDataMember事件，只要当数据使用者（诸如DataGrid控件）需要数据时就产生该事件。在这个事件中，Data参数被设置为在Initialize事件中所创建的recordset对象。
如果要使用这个类模块，应创建一个具有一个DataGrid控件的窗体。在该窗体的Load事件的代码中，将该控件的DataSource属性设置为这个类。
注意数据类模块在设计时是不可用的。例如，如果使用DataGrid控件，则当用户在“属性”窗口中单击“数据源”时，所有可用的数据源都会出现在一个下拉列表中。但其中不会有这个数据类模块，它只能在代码中设置。
使用类模块创建一个数据源
下面的示例使用一个类模块来创建一个简单数据源。然后通过DataSource属性将DataGrid控件绑定到该模块。
要创建一个用于DataGrid的类
1.创建一个新的标准Exe工程。
2.给窗体添加一个DataGrid控件。如果DataGrid控件不在“工具箱”中，则在“工程”菜单中单击“部件”，
再单击“MicrosoftDataGridControl”，然后单击“确定”。
3.在“工程”菜单中，单击“引用”。在“引用”对话框中，单击“MicrosoftActiveXDataObjects2.0Library”。
4.在“工程”菜单中，单击“添加类模块”来给工程添加一个数据类模块。
5.在“工程资源管理器”窗口中，单击并选定“类”图标，并按F4键显示“属性”窗口。
6.在“属性”窗口中，将类的名称更改为NamesData。
7.在“属性”窗口中，单击“DataSourceBehavior”并将该属性更改为vbDataSource。
8.在该类模块的Declarations部分，创建一个ADODBRecordset变量，如下所示：
OptionExplicit
PrivateWithEventsrsNamesAsADODB.RecordSet
使用WithEvents关键词来声明该变量，使用户可以对RecordSet对象的事件编程。
9.在该类的Initialize事件中，添加下述代码：
PrivateSubClass_Initialize()
将新的数据成员的名称添加到DataMember集合
这使其它对象可以看见这些可用的
DataMembersDataMembers.Add"Names"
SetrsNames=NewADODB.RecordSet 设置对象变量。
创建一个具有两个字段的recordset，并打开该recordset。
第一个记录具有一个整数的数据类型，第二个记录是一个最大可
达256个字符的字符串。CursorType被设置为OpenStatic
——一个可更新的对一组记录的快照。LockType被设置为
LockOptimistic，以允许对该recordset进行更新。
WithrsNames
.Fields.Append"ID",adInteger
.Fields.Append"Name",adBSTR,255
.CursorType=adOpenStatic
.LockType=adLockOptimistic
.Open
EndWith
DimiAsInteger
Fori=1to10 添加十条记录。
rsNames.AddNew
rsNames!ID=i
rsNames!Name="Name"&i
rsNames.Update
Nexti
rsNames.MoveFirst移到该记录集的开始。
EndSub
这部分代码首先创建recordset对象，然后给该对象添加两个字段。代码接着给recordset添加十条记录。
10.在该类的GetDataMember事件中，添加下述代码：
PrivateSubClass_GetDataMember(ByValDataMemberAsString,_
DataAsObject)
SetData=rsNames
EndSub
只要发生该事件——即当该类对象被绑定到一个数据使用者，如DataGrid控件时，代码将返回该recordset对象。
11.在Form对象的代码模块中，声明一个数据类的对象变量：
OptionExplicit
PrivatedatNamesAsNamesData类变量
12.在Form对象的Load事件的代码中，将DataGrid控件的DataSource设置为该类对象。
PrivateSubForm_Load()
创建一个新的NamesData对象
SetdatNames=NewNamesData
将这个DataGrid绑定到新的数据源datNames
SetDataGrid1.DataSource=datNames
EndSub
13.按F5键运行该工程。
->
