主题：表的加载效率

请教，

 

我有个颜色类别表，17行数据，加载数据时，持续时间达30秒。

 

而这个表，只写了一个 DataColChanged 事件。代码如下，请大神们帮分析下如何优化可提高效率。

 

Select Case e.DataCol.Name
    Case "颜色类别"
        Dim fdr As DataRow = DataTables("颜色类别").Find("颜色类别 = '" & e.DataRow("颜色类别") & "' and [_Identify] <> " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            e.DataRow("类别编码") = fdr("类别编码")
        Else
            Dim max As String
            max = e.DataTable.Compute("Max(类别编码)","[_Identify] < '" & e.DataRow("_Identify") & "'") '取得最大编号
            If max > "" Then
                e.DataRow("类别编码") = Format(CInt(max) + 1,"00")
            Else
                e.DataRow("类别编码") = "01"
            End If
        End If
    Case "颜色名称"
        Dim fdr As DataRow = DataTables("颜色类别").Find("颜色类别 = '" & e.DataRow("颜色类别") & "' and 颜色名称 = '" & e.DataRow("颜色名称") & "' and [_Identify] <> " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            e.DataRow("名称编码") = fdr("名称编码")
        Else
            Dim max As String
            max = e.DataTable.Compute("Max(名称编码)","[_Identify] < '" & e.DataRow("_Identify") & "' And 颜色类别 = '" & e.DataRow("颜色类别") & "'")  '取得最大编号
            If max > "" Then
                e.DataRow("名称编码") = Format(CInt(max) + 1,"00")
            Else
                e.DataRow("名称编码") = "01"
            End If
        End If
      e.DataTable.Save()
End Select

说明你的需求.例子发上来,这样能为帮助你的人,省下不少功夫,才能更加快速的帮到您

试试在加载的时候，控制一下不触发任何事件，参考。

 

 http://www.foxtable.com/help/topics/2218.htm

 

 

这样速度提升很多。

 

但我有个疑问，如果在启动项目加载表的时候，不执行表事件。如果启动完成后，用户在操作表的时候，表事件会生效吗？

再操作改变值会触发DataColChanged的

好的，谢谢!