1、首先将窗口中副本Table的“允许编辑”属性设置为False,这样双击这个副本,才会执行DoubleClick事件。
2、然后将副本Table的DoubleClick事件代码设置为:
Dim r1 As Row = e.Table.Current()Dim r2 As Row = Tables("xueshen_zcdj").CurrentFor Each c As col In Tables("xueshen_zcdj").Cols r2(c.Name) = r1(c.name)Next