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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货