Dim uxuu As Integer = Tables("新设置起终值").FindRow("[行号] = '" & cstr(shu1u) & "'")
Dim Intqszu As Single
Dim Intzzzu As Single
Dim ztintqszu As Single
Dim ztintzzzu As Single
If uxuu>=0 Then
Intqszu = Tables("新设置起终值").Rows(uxuu)("区间起始值")
Intzzzu = Tables("新设置起终值").Rows(uxuu)("区间终止值")
ztintqszu=Tables("新设置起终值").Rows(uxuu)("总体起始值")
ztintzzzu=Tables("新设置起终值").Rows(uxuu)("总体终止值")
Dim drs1 As List(of DataRow)
Dim sm As Integer = 0
drs1 = DataTables(scmb1).Select("[次次列] = '" & aryu & "'","[" & nam1 & "]")
‘为什么加上这一句就会运行速度提高数千倍，本身这一句从程序看是多余的。也就是说，选择行的时候先按部分条件（这个条件相当于不选表中的全部行），再根据条件选部分行，运行速度会大加快，请给解释。
Dim drs As List(of DataRow)
drs = DataTables(scmb1).Select("[次次列]= '" & aryu & "'and [" & nam1 & "] >= " & ztIntqszu & "and [" & nam1 & "] < " & ztIntzzzu, "[" & nam1 & "]")'注意要根据日期排序
Dim tm As Integer = drs.Count
For Each dr2 As DataRow In drs
加好友 
发短信
Post By：2018/3/29 9:33:00 [只看该作者]
