DataGrid控件的使用五

　　　　RecordSet事件的编程51Testing软件测试网'P}A%@Rj
　　　　也可以对这个 Recordset 对象的事件进行编程。在该类模块中，单击“对象”框（在位于左上角），然后单击“rsNames”。在“过程/事件”框（在右上角）中，下拉列表将显示这个 Recordset 对象的所有事件。51Testing软件测试网lIc|7Pb?~3qL

-t.uN+t^4I0K?0　　　　给类添加一个属性
0K`e@%G4~D6L0　　　　类模块也可以进行修改，来响应事件或函数调用。下面的代码演示了如何先给类添加属性。当从其它对象调用该对象时，这一属性将返回该类的RecordCount。51Testing软件测试网hVEY4V1Hg
　　　　Public Property Get RecordCount() As Long51Testing软件测试网WMJ/HL5Z$W~s
　　　　　　　RecordCount = rsNames.RecordCount51Testing软件测试网)c1[~K6w%Dvs(Sy
　　　　End Sub
N;{5x_r L1s^051Testing软件测试网/Cb1},uvRH,q
　　　　使用 DataMember 属性
f bk"x^7t(Qe0　　　　GetDataMember 事件也包括 DataMember 参数。使用这个参数，可以在类模块中包括多个记录集，并使用带 DataMember 参数的 Select Case 语句来返回相应的记录集：
d0D#r e7SS;?0　　　　Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _51Testing软件测试网U1mu8~*Du&eD
] ?
　　　　Object)51Testing软件测试网&C8]$m,W~\
　　　　　　　Select Case DataMember
6^.x(ked.J0　　　　　　　Case "Names"51Testing软件测试网B%RpJn&fA)o5P3nC/c
　　　　　　　　　Set Data = rsNames51Testing软件测试网 Z^.]+dYAd
　　　　　　　Case "Dates"51Testing软件测试网;\jGo%aeW'D:m
o
　　　　　　　　　Set Data = rsDates51Testing软件测试网;~
RYO w^+E
　　　　　　　Case Else
'W$uq.I.P$]Y$KC0　　　　　　　　　'' 设置一个默认的数据成员51Testing软件测试网)?$w/H9Kx
　　　　　　　　　Set Data = rsYears51Testing软件测试网.gKY l#CsjR
　　　　　　　End Select51Testing软件测试网ep*}3b4_2_e
　　　　End Sub
(YG,pdhH7tM0　　　　如果要指定所需的 DataMember，请将数据使用者的 DataMember 属性设置为适当的字符串，然后如平常一样设置 DataSource。对于 DataGrid 控件，可以采用如下方法：
mf"vej/Q0　　　　Private Sub Form_Load()
7RDX A5x;x9B0　　　　　　　'' 创建一个新的 NamesData 对象
t u"CsY"d~d0　　　　　　　Set datNames = New NamesData
qxG A2@ Ugkm0　　　　　　　'' 指定所需的 DataMember，然后设置 DataSource。51Testing软件测试网v%D2J;x _fT
　　　　　　　DataGrid1.DataMember = "Names"
LV3r A;L/Z0　　　　　　　Set DataGrid1.DataSource = datNames51Testing软件测试网R,m1gpC1Q)S"~s1?j
　　　　End Sub
c:g!mN%D0