如何实现DATAGRID单击和双击事件
我就DataGrid1和DataGrid2连接到了adodc1，adodc2,DataGrid1,DataGrid2显示了数据库里的表格，其中两表之间通唯一的“客户编号”进行关联，我是想单击DataGrid1中的任意一行,DataGrid2可显示些“客户编号”下的所有订单：代码如下
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "请选择客户", vbOKOnly + vbInformation, "注意"
Adodc2.Refresh
Exit Sub
End If
DataGrid1.MarqueeStyle = dbgHighlightRow
Adodc1.Recordset.Fields.Refresh
Adodc2.RecordSource = "select * from [1001] where 客户编号 ='" & Adodc1.Recordset.Fields(0) & "'"
Adodc2.Refresh
现在问题是，单击不行，但能选中行，双击是可以的，但不能选中行，而且每次单击“客户编号”，在DataGrid2出现的总是上一次点击的客户下面的订单列表。
不管单击也好，双击也罢，只要能实现选中的同时能正确显示对应客户下的订单列表就可以了，急……
[解决办法]
已完成……
