当双击A表中的一行时,将此行中的指定列的的内容自动填入B表中指定的列内,
If forms("违章登记").opened Then
forms("违章登记").controls("textbox2").text=e.Table.current("单位名称")
forms("违章登记").controls("textbox4").text=e.Table.current("地址")
forms("违章登记").controls("TextBox5").text=e.Table.current("联系电话")
forms("违章登记").controls("TextBox6").text=e.Table.current("邮政编码")
End If
也就是把上面的窗口改成表名。
请大侠指教,这个代码如何写?
[此贴子已经被作者于2014-9-7 13:06:00编辑过]