以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  作为副本的窗体表，doubleclick代码如下，双击选择当前单元行会把工价表所有行都更改掉，代码不是只是当前行吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108875)

--  作者：yetle --  发布时间：2017/10/31 11:39:00 --  作为副本的窗体表，doubleclick代码如下，双击选择当前单元行会把工价表所有行都更改掉，代码不是只是当前行吗？ 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

--  作者：有点甜 --  发布时间：2017/10/31 13:04:00 --    上传具体例子说明问题。