点击mshflexgrid控件时，dtpicker控件怎么才能从mshflexgrid控件获得数据。

Question

我代码如下：
Private Sub MSHFlexGrid1_Click()
            If MSHFlexGrid1.Row > 0 And MSHFlexGrid1.Text <> "" Then
            If rsmsh.State Then
            rsmsh.Close
        End If
    
    rsmsh.Open "select * from paichan order by id desc", con, adOpenKeyset, adLockPessimistic
    rsmsh.Move MSHFlexGrid1.Row - 1
        With MSHFlexGrid1
        .Col = 7        dtpicker1.value=.text
    
这样写为什么会报错
    End With
    End If
End Sub

Answer 1

Me.DTPicker5.Value = Trim(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, Me.MSHFlexGrid1.Col))

Answer 2

Private Sub MSHFlexGrid1_Click()
Me.DTPicker1.Value = Trim(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, Me.MSHFlexGrid1.Col))
End Sub