[求助]优化代码速度 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用lshshlxsh在2014-11-4 15:29:00的发言：
我是指插入后总数据有240多条吧，需要3分钟左右

3分钟，打个瞌睡，绰绰有余。图片点击可在新窗口打开查看

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

Dim cmd9 As New SQLCommand

Dim dt9 As DataTable

cmd9.C

cmd9.CommandText = "INSERT INTO 工资明细表(生产任务单号,单据编号,员工编号,工序名称,数量,销售订单号 ,产品名称,工资日期,单据类型,工资所属车间,制单时间) VALUES( '" & scrwdh.Value & "' ,'" & dr("单据编号") & "' ,'" & dr("员工编号") & "' ,'" & gx & "' ,'" & dr(gx) & "' ,'" & xsddh.Value & "', '" & cpmc.Value & "' ,'" & gzrq.Value & "' ,'" & djlx.Value & "' ,'" & cjmc.Value & "' ,'" & zdsj.Value & "' )"

dt9 = cmd9.ExecuteReader()

End If

我把蓝色的代码替换成红色的代码后执行速度非常的快，但是,[_Locked]

,[_SortKey] 这两个字段在数据库里的值就为NULL.这有什么影响吗？

没有影响，不过影响排序

SystemReady = False
DataTables("工资明细表").StopRedraw
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
DataTables("工资明细表").ResumeRedraw
SystemReady = True

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52855&replyID=&skin=1

看这个帖子用insert 多行一次插入那个

我昨晚也测试了一下 500条数据互联网保存到sql数据库用狐表自己的save 大概3分钟，逐行插入40-42秒，多行一次插入16-20秒

有点甜老师，我试过你刚才的代码了，速度也很快，我现在找到执行慢的原因了，是datacolchanged 事件中的代码影响的执行速度了

请问一下这段代码要如何优化一下

If e.DataCol.Name = "员工编号" Then

Dim dr As DataRow

Dim Filter As String

Filter = "[员工编号] = '" & e.DataRow("员工编号") & "' "

'生成数据表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Declare @kk As VARCHAR(10) set @kk='k'+substring(convert(varchar(10),getdate(),112),3,4)+'bm' exec('select a.name as 姓名 ,a.gh as 工号 ,a.id as 员工编号,b.bm_name as 部门名称,a.outdate as 离职日期 ,a.lanpd as lanpd from krs a left join '+@kk+ ' b on a.bm_no=b.bm_no ' )"

dt = cmd.ExecuteReader()

'生成目录树

dr = dt.Find(Filter)

If dr IsNot Nothing Then

e.DataRow("姓名") = dr("姓名")

e.DataRow("工号") = dr("工号")

e.DataRow("车间名称") = dr("部门名称")

Else

e.DataRow("姓名") = Nothing

e.DataRow("工号") = Nothing

e.DataRow("车间名称") = Nothing

End If

不知道你的意图。

你的dt是不是不应该每次都生成，生成一次行不行。

谢谢甜老师，是这个地方出了问题

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