For Each r As Row In t.Rows
For k As Byte = 1 To i
DataTables("员工查询_Table1").DataCols("工位工时_" & k).SetFormat("0")
DataTables("员工查询_Table1").DataCols("工效_" & k).SetFormat("#0.00%")
DataTables("员工查询_Table1").DataCols("工位工价_" & k).SetFormat("0.00")
Tables("员工查询_Table1").Cols("扎包产量_" & k).TextAlign = TextAlignEnum.Center
Tables("员工查询_Table1").Cols("工位ID_" & k).TextAlign = TextAlignEnum.Center
Next
r("合计_效率") = r("合计_定额")/r("合计_实际")
If r.Index = t.Rows.Count-1 Then
For Each c As Col In t.cols
If c.caption Like "*工位ID*" Then
r(c.name) = Nothing
End If
Next
End If
Next