主题：[求助] 系统速度问题

你用之前的版本连接数据库没有问题？你是不是改了什么代码啊？把对应的代码都注释掉啊。不加载数据也慢么？

狐爸，找到问题了，是下面的一段代码有问题，一共有四段。要如何优化呢？

If e.DataCol.Name = "确认第二次接种" AndAlso e.DataRow("确认第二次接种") = True Then
    Dim nma() As String = {"序号","狂苗名称","狂苗生产厂家","狂苗批号","狂苗有效期","狂苗种类","狂苗规格","剂型","狂苗单位","第二次接种剂量","狂苗售价","病人姓名","性别","年龄","第二次接种部位","确认第二次接种"}  'A表数据来源列
    Dim nmb() As String = {"序号","药品名称","生产厂家","药品批号","有效期","种类","规格","剂型","单位","剂量","单价","受种者姓名","性别","年龄","接种部位","确认第二次接种"}  'B表数据接收列,
    Dim dh As  DataRow = DataTables("疫苗接种出库记录表").SQLFind("[序号] = '" & e.DataRow("序号") & "' and [药品名称] = '" & e.DataRow("狂苗名称") & "' and [日期] = '" & e.DataRow("第二次实际接种日期") & "'")
    If dh Is Nothing Then
        dh = DataTables("疫苗接种出库记录表").AddNew()
    End If
    For i As Integer = 0 To nma.Length - 1
        dh(nmb(i)) = e.DataRow(nma(i))
    Next
    dh.save
Else
    DataTables("疫苗接种出库记录表").SQLDeleteFor("[序号] = '" & e.DataRow("序号") & "' and [药品名称] = '" & e.DataRow("狂苗名称") & "' and [日期] = '" & e.DataRow("第二次实际接种日期") & "'")
End If

 把 DataTables("疫苗接种出库记录表") 所需要的数据，全部都加载出来。

 尽量的少用 sqlFind 和 sqlDeleteFor

狐爸，找到问题 了，是下面的代码有问题，一共有四段，该如何优化呢？谢谢！

 If e.DataCol.Name = "确认第二次接种" AndAlso e.DataRow("确认第二次接种") = True Then
    Dim nma() As String = {"序号","狂苗名称","狂苗生产厂家","狂苗批号","狂苗有效期","狂苗种类","狂苗规格","剂型","狂苗单位","第二次接种剂量","狂苗售价","病人姓名","性别","年龄","第二次接种部位","确认第二次接种"}  'A表数据来源列
    Dim nmb() As String = {"序号","药品名称","生产厂家","药品批号","有效期","种类","规格","剂型","单位","剂量","单价","受种者姓名","性别","年龄","接种部位","确认第二次接种"}  'B表数据接收列,
    Dim dh As  DataRow = DataTables("疫苗接种出库记录表").SQLFind("[序号] = '" & e.DataRow("序号") & "' and [药品名称] = '" & e.DataRow("狂苗名称") & "' and [日期] = '" & e.DataRow("第二次实际接种日期") & "'")
    If dh Is Nothing Then
        dh = DataTables("疫苗接种出库记录表").AddNew()
    End If
    For i As Integer = 0 To nma.Length - 1
        dh(nmb(i)) = e.DataRow(nma(i))
    Next
    dh.save
Else
    DataTables("疫苗接种出库记录表").SQLDeleteFor("[序号] = '" & e.DataRow("序号") & "' and [药品名称] = '" & e.DataRow("狂苗名称") & "' and [日期] = '" & e.DataRow("第二次实际接种日期") & "'")
End If

 看13楼

 不要sqlFind 和 sqlDeleteFor，改成find和DeleteFor

 你修改列自然会触发datacolchanged事件啊

 不想触发参考 http://www.foxtable.com/webhelp/scr/2218.htm