主题：[求助]双击行后将行中的一些内容填入另外一个表内

 代码

Dim r As Row = Tables("车辆违章表").AddNew
r("单位基本情况_单位名称") = e.Table.current("单位名称")
r("单位基本情况_地址") = e.Table.current("地址")
r("单位基本情况_联系电话") = e.Table.current("联系电话")
r("单位基本情况_邮政编码") = e.Table.current("邮政编码")