作为副本的窗体表，doubleclick代码如下，双击选择当前单元行会把工价表所有行都更改掉，代码不是只是当前行吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tbl As Table = Tables("选择工序_Table1")

If tbl.Current IsNot Nothing Then

Tables("工价表").Current("工序库ID") = tbl.Current("工序库ID")

Tables("工价表").Current("工序名称") = tbl.Current("工序名称")

Tables("工价表").Current("衣车种类") = tbl.Current("衣车种类")

Tables("工价表").Current("部门") = tbl.Current("部门")

Tables("工价表").Current("车缝净时间") = tbl.Current("车缝净时间")

Tables("工价表").Current("小时工资标准") = tbl.Current("小时工资标准")

Tables("工价表").Current("工价_单件") = tbl.Current("工价_单件")

Tables("工价表").Current("工价_30件") = tbl.Current("工价_30件")

Tables("工价表").Current("面料系数") = tbl.Current("面料系数")

Tables("工价表").Current("浮余率") = tbl.Current("浮余率")

Tables("工价表").Current("捆扎时间") = tbl.Current("捆扎时间")

Tables("工价表").Current("备注") = tbl.Current("备注")

Tables("款式库.工价表").Current("工序库ID") = tbl.Current("工序库ID")

Tables("款式库.工价表").Current("工序名称") = tbl.Current("工序名称")

Tables("款式库.工价表").Current("衣车种类") = tbl.Current("衣车种类")

Tables("款式库.工价表").Current("部门") = tbl.Current("部门")

Tables("款式库.工价表").Current("车缝净时间") = tbl.Current("车缝净时间")

Tables("款式库.工价表").Current("小时工资标准") = tbl.Current("小时工资标准")

Tables("款式库.工价表").Current("工价_单件") = tbl.Current("工价_单件")

Tables("款式库.工价表").Current("工价_30件") = tbl.Current("工价_30件")

Tables("款式库.工价表").Current("面料系数") = tbl.Current("面料系数")

Tables("款式库.工价表").Current("浮余率") = tbl.Current("浮余率")

Tables("款式库.工价表").Current("捆扎时间") = tbl.Current("捆扎时间")

Tables("款式库.工价表").Current("备注") = tbl.Current("备注")

Forms("选择工序").Close()

End If

主题：作为副本的窗体表，doubleclick代码如下，双击选择当前单元行会把工价表所有行都更改掉，代码不是只是当前行吗？