主题：将查询到的某一行记录双击鼠标自动插入一记录中

1、首先将窗口中副本Table的“允许编辑”属性设置为False，这样双击这个副本，才会执行DoubleClick事件。

2、然后将副本Table的DoubleClick事件代码设置为：

Dim r1 As Row  = e.Table.Current()
Dim r2 As Row = Tables("xueshen_zcdj").Current
For Each c As col In Tables("xueshen_zcdj").Cols
   r2(c.Name)  = r1(c.name)
Next