有關DataGrid1_Click的問題(急救!)

[ggclinux]

我在用下面的代碼抓出數據﹐結果click 數據源后每次都是光標停留的記錄﹐執行完此事件后光標才定位到要選中的記錄﹐請問各位高手﹐怎樣讓我的程序先定位再select 出我想要的記錄﹐(注﹕不是點datagrid前面的三角符號)


Private Sub DataGrid2_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String

Set mrc = DataGrid2.DataSource
dwno = Trim(mrc.Fields(0)) '出貨通知單號
dorder = Trim(mrc.Fields(1)) '次序
txtSQL = "select * from 出貨通知單 where 出貨通知單=" & Chr(39) & dwno & Chr(39) & " and 項次=" & Chr(39) & dorder & Chr(39)
msgbox txtsql
Set mrc = ExecuteSQL(txtSQL, MsgText)
End Sub

[tripman]

改用DataGrid2_RowColChange事件,数据源游标在Click事件后才移动

[zhuanzhu_zhizhuo]

Private Sub DataGrid2_RowColChange()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String

Set mrc = DataGrid2.DataSource
dwno = Trim(mrc.Fields(0)) '出貨通知單號
dorder = Trim(mrc.Fields(1)) '次序
txtSQL = "select * from 出貨通知單 where 出貨通知單=" & Chr(39) & dwno & Chr(39) & " and 項次=" & Chr(39) & dorder & Chr(39)"
msgbox txtSQL
Set mrc = ExecuteSQL(txtSQL, MsgText)
End Sub