|
以在类模块中包括多个记录集，并使用带 DataMember 参数的 Select Case 语句来返回相应的记录集：
Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _
Object)
Select Case DataMember
Case "Names"
Set Data = rsNames
Case "Dates"
Set Data = rsDates
Case Else
' 设置一个默认的数据成员
Set Data = rsYears
End Select
End Sub
如果要指定所需的 DataMember，请将数据使用者的 DataMember 属性设置为适当的字符串，然后如平常一样设置 DataSource。对于 DataGrid 控件，可以采用如下方法：
Private Sub Form_Load()
' 创建一个新的 NamesData 对象
Set datNames = New NamesData
' 指定所需的 DataMember，然后设置 DataSource。
DataGrid1.DataMember = "Names"
Set DataGrid1.DataSource = datNames
End Sub
[]
上一页 [1] [2] [3] [4]
|
