主题：复制所有列

Dim tbl As Table = Tables("五级表|工步_Table1")
If tbl.Current IsNot Nothing Then
'    Tables("生产管理_Table04").Current("工序") = tbl.Current("工序")
'    Tables("生产管理_Table04").Current("设备名称") = tbl.Current("设备名称")
'    Tables("生产管理_Table04").Current("机床代号") = tbl.Current("机床代号")
'    Tables("生产管理_Table04").Current("机床编号") = tbl.Current("机床编号")
'    Tables("生产管理_Table04").Current("计划作业人员") = tbl.Current("计划作业人员")
'    Tables("生产管理_Table04").Current("按时间加工单价") = tbl.Current("按时间加工单价")
Tables("生产管理_Table05")(e.Col.name) = tbl(e.Col.name)   希望tbl当前行的所有列（除工步号列）复制到Tables("生产管理_Table04")当前行，代码怎么写？

End If
Forms("五级表|工步").Close()