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

老师，我的系统项目事件中没有添加代码，代码和以前比变化不大，怎么现在系统速度好慢了，加载表数据也感觉到慢了，双击打开一个窗口要等3秒。给分析一下可能是什么原因。谢谢！

红袍老师，没有项目时，在  管理项目 打开 项目属性 要 3秒 以上。不知道是什么原因。这个现象有一段时间了。客户反映最近更新的系统速度比以前感觉慢些。特别是有一个窗口 很慢。按照你说的把窗口的代码删完了还是一样慢。我把这个窗口保存为文件后，在空项目新增窗口，然后用那个文件生成的窗口，还慢些，有时打不开。

红袍老师，我的窗口打开慢的问题，这几天我发现不是窗口的问题而是表的问题：

索引，要到服务器上设置吧？ 该如何设置呢？

老师，不对头啊，我用2016年3月18号前的版本没问题啊，不是索引的问题啊。

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

 

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

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

 

 

 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

 

老师，增加行时会触发 DataColChanged 事件啊？