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

有一个要求：

在录入一个学生信息时，学生原有的信息想自动填充。

想法是：

1 建一个窗口，插入表，做好相应字段捆绑。如下图

 

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

此主题相关图片如下：a2.png

 

2 要录入考号时，直接打开一个查询表，选中一个记录，双击后，刚相应的信息自动填充到上一表中。

 

此主题相关图片如下：a1.png

此段代码不知如何写？

 

还是出错，如下

 

此主题相关图片如下：a1.jpg

我发了案例上来，请帮助看看？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学校管理系统(本地版).rar

问题没解决：请版主帮忙上！

以上几们的提议解决不了问题

楼主你好：

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

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