如題

解决方案 »

  1.   

    妳在單擊事件中判斷一下不就可以了么??if ssgrid.rows<=0 then exit sub 
      

  2.   

    DataGrid1使用按鈕cmdAdd進行操作新增,怎麼使得DataGrid會自動新增一行.
      

  3.   

    rs.addnew对datagrid就是对recordset操作
      

  4.   

    刷新DATAGRID的时候,先把它的数据源=NOTHING,再设置成RS
      

  5.   

    你是不是在DataGrid的单击事件里写了什么东西啊?
      

  6.   

    單擊某一行記錄的時候,會自動在其它文本控件顯示該記錄的相關記錄。當DataGrid沒有顯示任何記錄的時候,單擊則發生錯誤。
      

  7.   

    不知道你click中寫的什麼,應該貼出來
    最前面加這個試一試
    Private Sub DataGrid1_Click()
            If rs.BOF Or rs.EOF Then Exit Sub
            ...
    End Sub
      

  8.   

    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
      

  9.   

    出現什麼錯誤提示
    MsgBox DataGrid1.Row 看看是否<0
    單步跟蹤看一下