主题：数据填充代码问题

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

我想实现上述效果，编码怎么写，请各位老师帮忙。

有点蓝老师，还有个问题。我有两个表，一个是批发表1,一个是入库表1。我想实现，当选定批发表1时，双击则相应列复制到批发表1的选定行,当选定入库表1时，双击则相应列复制到入库表1选定行。

我把代码改成下面这样，结果一双击，两个表都复制了内容。麻烦有点蓝老师，代码怎么改？

e.Cancel = True
Dim r As Row = Tables("综合查询_Table批发表1").Current
If r IsNot Nothing Then
    r("财务编号") = e.Row("财务编号")
    r("收据fa piao号") = e.Row("收据fa piao号")
End If

Dim r1 As Row = Tables("综合查询_Table入库表1").Current
If r1 IsNot Nothing Then
    r1("财务编号") = e.Row("财务编号")
    r1("收据fa piao号") = e.Row("收据fa piao号")
End If