在VB中使用了datagrid控件,当我右键单击其中的某行时,怎么取得当前单击的哪行哪列?怎么取得该行字段的值???谢谢各位高人指导小弟!!!

解决方案 »

  1.   

    Option Explicit
        Dim cn As New ADODB.Connection '定义数据库的连接
        Dim rs As New ADODB.Recordset
        Dim sql As String
        Dim l As Integer
        Dim zsl As Integer
        Dim strData As String
        Dim i As Integer
        Dim j As IntegerPrivate Sub Command3_Click()
        sql = "select * from jishijilu where car_bm like 'DF160%'"
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\VB_program\kongtiao\CarTempTs.mdb;Persist Security Info=False"
        cn.Open
        rs.CursorLocation = adUseClient
        rs.Open sql, cn, adOpenDynamic, adLockOptimistic
        Set DataGrid1.DataSource = rs
        zsl = rs.RecordCount
        l = rs.Fields.Count
    End SubPrivate Sub DataGrid1_Click()
        For j = 0 To l - 1
            Text1.Text = Text1.Text & rs.Fields(j) & vbCrLf
        Next
    End Sub
      

  2.   

    同意楼上   不过落了一句  set rs = new Adodb.recordset
      

  3.   

    何以见得?
    此句已做定义 Dim rs As New ADODB.Recordset
    代码在WINXP和VB6下调试通过.
      

  4.   

    还是要谢谢zdingyun你上边说的应该不是右键能实现的吧??