新增一行，提示DataTable 内部索引已损坏，做过项目压缩 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Dim tbl7 As Table = Tables("工价表")

If tbl.current Is Nothing

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

主题：新增一行，提示DataTable 内部索引已损坏，做过项目压缩