Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim i As Integer
If DataGrid1.Row >= 0 Then
Vsearch = DataGrid1.Columns(0).Text
For i = 0 To Vnum
If Vsearch = Skycard(i, 1) Or Vsearch = Skycard(i, 1) & "," & Skycard(i, 2) Then
List1.List(0) = Vsearch
End If
Next i
End If
End Sub
Private Sub DataGrid1_Click()
Dim i As Integer
If DataGrid1.Row >= 0 Then
Vsearch = DataGrid1.Columns(0).Text
For i = 0 To Vnum
If Vsearch = Skycard(i, 1) Or Vsearch = Skycard(i, 1) & "," & Skycard(i, 2) Then
List1.List(0) = Vsearch
End If
Next i
End If
End Sub
Dim i As Integer
For i = 1 to 10 ' 添加十条记录。
rsNames.AddNew
rsNames!ID = i
rsNames!Name = "Name " & i
rsNames.Update
Next i
rsNames.MoveFirst ' 移到该记录集的开始。
End Sub
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
Private Sub Form_Load()
Dim a(2, 9) As String
For i = 0 To 2
For j = 0 To 9
a(i, j) = i & "," & j
Next
Next
Dim adoRecordset As new ADODB.Recordset
For i = 0 To 2 '为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
adoRecordset.AddNew '为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
For j = 0 To 9
For i = 0 To 2
DataGrid1.Columns(i).Text = a(i, j)
Next
adoRecordset.MoveNext
Next
End Sub