老师有什么办法可以帮我提速下
Dim s As Table = Tables("科目表")
For i As Integer = 0 To s.Rows.count-1
Dim b1 As String = s.Rows(i)("科目编码")
Dim dr As DataRow
Dim dn As DataRow
Dim y As Date = e.Form.Controls("enddate").value
Dim yy As Integer = y.Year
Dim dt As New Date(yy, 1, 1)
dr = DataTables("试算平衡表").Find("科目编码 = '" & b1 & "'")
If dr Is Nothing Then
dr = DataTables("试算平衡表").AddNew()
dr("科目编码") = s.Rows(i)("科目编码")
dr("科目名称") = s.Rows(i)("科目名称")
dr("累计借方金额") = DataTables("凭证明细").SQLCompute("sum(借方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #"& star &"# And 编制日期 <= #" & e.Form.Controls("startdate").value & "#")
dr("累计贷方金额") = DataTables("凭证明细").SQLCompute("sum(贷方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #"& star &"# And 编制日期 <= #" & e.Form.Controls("startdate").value & "#")
dr("期初余额") = dr("累计借方金额") - dr("累计贷方金额")
dr("本期借方") = DataTables("凭证明细").SQLCompute("sum(借方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #" & e.Form.Controls("startdate").value & "# " & " And 编制日期 <= #" & e.Form.Controls("enddate").value & "#")
dr("本期贷方") = DataTables("凭证明细").SQLCompute("sum(贷方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #" & e.Form.Controls("startdate").value & "# " & " And 编制日期 <= #" & e.Form.Controls("enddate").value & "#")
dr("本期余额") = dr("期初余额") + dr("本期借方") - dr("本期贷方")
dr("本年借方") = DataTables("凭证明细").SQLCompute("sum(借方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #"& dt &"# And 编制日期 <= #" & e.Form.Controls("enddate").value & "#")
dr("本年贷方") = DataTables("凭证明细").SQLCompute("sum(贷方金额)","[科目编码] ='" & s.Rows(i)("科目编码") & "'And 编制日期 >= #"& dt &"# And 编制日期 <= #" & e.Form.Controls("enddate").value & "#")
End If
Next
Tables("试算平衡表").SetColVisibleWidth("科目编码|120|科目名称|120|期初方向|60|期初余额|120|本期借方|120|本期贷方|120|余额方向|60|本期余额|120|本年借方|120|本年贷方|120")
DataTables("试算平衡表").Save()
加好友 
发短信
Post By：2020/11/6 10:59:00 [显示全部帖子]
此主题相关图片如下：qq截图20201106105619.png
