主题：关于逻辑列的效率问题(6楼同学的办法比我的好)

表A的结构如下：

此主题相关图片如下：12.gif

 

表B的结构如下：

 

此主题相关图片如下：15.gif

 

希望在表B统计出客户付款和欠款情况，代码为：

 

Dim st As Date = Date.Now
Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","客户")
DataTables("表B").StopRedraw()
For Each nm As String In nms
    Dim dr As DataRow = DataTables("表B").AddNew()
    dr("客户") = nm
    dr("付款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And 已付款 = True")
    dr("欠款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And 已付款 = False")
Next
DataTables("表B").ResumeRedraw()
Output.Show("计算结束, 耗时: " & (Date.Now - st).TotalSeconds & "秒") 

 

在表A有5000行，客户数为1000的情况下，上述代码执行时间为25秒。

可以接受，但不够理想，按道理不应该要这么长时间的。

 

随后我将已付款列改为字符型，用Y表示已经付款，用N表示未付款：

 

此主题相关图片如下：14.gif

 

然后将代码改为：

 

Dim st As Date = Date.Now
Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","客户")
DataTables("表B").StopRedraw()
For Each nm As String In nms
    Dim dr As DataRow = DataTables("表B").AddNew()
    dr("客户") = nm
    dr("付款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And 已付款 = 'Y'")
    dr("欠款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And 已付款 = 'N'")
Next
DataTables("表B").ResumeRedraw()
Output.Show("计算结束, 耗时: " & (Date.Now - st).TotalSeconds & "秒")
 

执行上述代码，花费的时间为0.25秒，比之前的代码快了100倍。

 

看来逻辑列的查询效率比其它列类型低了100倍。

 

但显然逻辑列是不可能不用的，于是我重新将已付款改为逻辑列，将代码改为：

 

Dim st As Date = Date.Now
Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","客户")
DataTables("表B").StopRedraw()
DataTables("表A").DataCols.Add("tk", Gettype(Integer),"已付款")
For Each nm As String In nms
    Dim dr As DataRow = DataTables("表B").AddNew()
    dr("客户") = nm
    dr("付款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And tk = 1")
    dr("欠款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And tk = 0")
Next
DataTables("表A").DataCols.Delete("tk")
DataTables("表B").ResumeRedraw()
Output.Show("计算结束, 耗时: " & (Date.Now - st).TotalSeconds & "秒")

 

经过测试，上面代码执行时间为0.23秒。

原理就是临时增加一个整数列，将逻辑列的值转换为整数，在表达式中使用此整数列，而不是原来的逻辑列。
逻辑值转换为整数的时候，True转为1，False转换为0

 

 

这是测试文件：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目39.rar

 

没必要的，也不可能的，逻辑列有逻辑列的好处。

而且完全可以用代码临时增加一个字符或整数的表达式列，来绕过这个问题，例如：

 

Dim st As Date = Date.Now
Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","客户")
DataTables("表B").StopRedraw()
DataTables("表A").DataCols.Add("tk", Gettype(Integer),"已付款")
For Each nm As String In nms
    Dim dr As DataRow = DataTables("表B").AddNew()
    dr("客户") = nm
    dr("付款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And tk = 1")
    dr("欠款合计") = DataTables("表A").Compute("Sum(金额)", "客户 = '" & nm & "' And tk = 0")
Next
DataTables("表A").DataCols.Delete("tk")
DataTables("表B").ResumeRedraw()
Output.Show("计算结束, 耗时: " & (Date.Now - st).TotalSeconds & "秒")

 

哈哈，学了一招，多谢了。

呵呵，排序需要时间啊，有影响是正常的。

这是当然的，能简则简。