不知道你click中寫的什麼,應該貼出來 最前面加這個試一試 Private Sub DataGrid1_Click() If rs.BOF Or rs.EOF Then Exit Sub ... End Sub
Private Sub DataGrid1_Click() If DataGrid1.Row < 0 Then Exit Sub Else Set rsShow1 = New ADODB.Recordset rsShow1.Open "select * from qndetail where QN_NO='" & DataCombo1(1).Text & "' and SEQ_NO='" & DataGrid1.Columns(0).Text & "'", cnGDBE, adOpenKeyset, adLockPessimistic If rsShow1.RecordCount > 0 Then ListShow rsShow1 //在下面文本控件中显示对应的记录 Set rsShow1 = Nothing Else Exit Sub End If End If End Sub
最前面加這個試一試
Private Sub DataGrid1_Click()
If rs.BOF Or rs.EOF Then Exit Sub
...
End Sub
If DataGrid1.Row < 0 Then
Exit Sub
Else
Set rsShow1 = New ADODB.Recordset
rsShow1.Open "select * from qndetail where QN_NO='" & DataCombo1(1).Text & "' and SEQ_NO='" & DataGrid1.Columns(0).Text & "'", cnGDBE, adOpenKeyset, adLockPessimistic
If rsShow1.RecordCount > 0 Then
ListShow rsShow1 //在下面文本控件中显示对应的记录
Set rsShow1 = Nothing
Else
Exit Sub
End If
End If
End Sub
MsgBox DataGrid1.Row 看看是否<0
單步跟蹤看一下