还有问题大家一起帮忙看看

Question

Private Sub dgrdShowH_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    
    '数据联动
    Dim RS1 As ADODB.Recordset
    Dim RS2 As ADODB.Recordset
    Set RS1 = New ADODB.Recordset
    Set RS2 = New ADODB.Recordset
    
    Dim strsql1 As String
    Dim strsql2 As String
    
    strsql1 = "select * from 合同表"
    
    RS1.CursorLocation = adUseClient
    RS1.Open strsql1, dbConn, adOpenStatic, adLockOptimistic
    Set Me.dgrdShowH.DataSource = RS1
    
    If RS1.RecordCount > 0 Then
        strsql2 = "select * from 现金表 where 合同编号=" & Trim(RS1!合同编号) & ""
        RS2.CursorLocation = adUseClient
        If RS2.State <> adStateClosed Then RS2.Close
        RS2.Open strsql2, dbConn, adOpenStatic, adLockOptimistic
        Set Me.dgrdShowmM.DataSource = RS2
    End If问题是：我单击datagrid1第一行时在datagrid2中列出现金数据，单击第二行数据没有反应，焦点还是在第一行上，这是问什么？

Answer 1

strsql2 = "select * from 现金表 where 合同编号=" & Trim(RS1!合同编号) & "" RS1!合同编号始终没变过，当然不会变了。要用你 Me.dgrdShowH上的控件值内容方可[align=center]==== 思想重于技巧 ====
[/align]