10万火急,高分!!!!!!!!!!

[andyfr1210]

一张表中有一个日期字段,我用一个网格控件邦定该表.
我想在点击该网格控件的一条记录的日期字段时 弹出dtpicker控件,以便在网格中修改
日期是能从弹出的dtpicker中选择日期.
我看到一个应用软件有这个功能,我自己也想实现.请各位大侠们帮帮我吧,先谢谢!!!!

[CALG]

Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
DataGrid1.Row = DataGrid1.RowContaining(Y)
DataGrid1.Col = DataGrid1.ColContaining(X)
Me.Caption = DataGrid1.Columns(DataGrid1.Col).Text

DTPicker1.Height = DataGrid1.RowHeight
DTPicker1.Width = DataGrid1.Columns(DataGrid1.Col).Width
DTPicker1.Move DataGrid1.Left + DataGrid1.Columns(DataGrid1.Col).Left, DataGrid1.Top + (DataGrid1.RowHeight + 15) * DataGrid1.Row + 210
DTPicker1.Visible = True
End Sub