1,451
社区成员
发帖
与我相关
我的任务
分享DataGrid1_Click 的一个小问题
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
为什么我每次获得的Vsearch都比我的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
为什么我每次获得的Vsearch都比我的Click事件要晚一步（就是说每次获得上一次点击的
值）？
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-16
- 打赏
- 举报
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
