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

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

 

 

楼主你好：

因两个表的结构不完全相同，以上程序不是按相应的字段填写，我改成以下测试，相应的字段内容已填写目标表中，但保存时出错？

Dim dr As Row  = e.Table.Current()
Dim tr As Row = Tables("xueshen_zcdj").Current
For Each c As col In Tables("xueshen_zcdj").Cols
   'r2(c.Name)  = r1(c.name)
   tr("报名号") = dr("报名号")
   tr("姓名") = dr("姓名")
      
Next

 

此主题相关图片如下：qq截图20120716152601.png

你可能是查询表，所以无法保存。