主题：[求助]优化代码速度

  For Each dr As DataRow In DataTables("表D").Datarows   

            For Each dc As DataCol In DataTables("表D").DataCols

                Dim gx As String

                gx=dc.name

                

                If gx <>"姓名" And gx <>"单据编号" And gx <> "员工编号" And  gx <> "生产任务单号" Then

                    If dr(gx) > 0 And dr("姓名") <> "可申报最大数量" Then

                        dr(gx) = math.Floor( dr(gx) * 10000) / 10000 '取小数位前四位

                        Dim dr1 As DataRow = DataTables("工资明细表").Addnew

                        dr1("生产任务单号") = scrwdh.Value

                        dr1("单据编号") = dr("单据编号")

                        dr1("员工编号") = dr("员工编号")

                        dr1("工序名称") = gx

                        dr1("数量") = dr(gx)

                        dr1("销售订单号") = xsddh.Value

                        dr1("产品名称") = cpmc.Value

                        dr1("工资日期") = gzrq.Value

                        dr1("单据类型") = djlx.Value

                        dr1("工资所属车间") = cjmc.Value

                        dr1("制单时间") = zdsj.Value 

                    End If

                End If

            Next

        Next