主题：如何使以下代码直接对后台数据库有效？而不是只对Tables

If  drs.Count > 0 Then
    For Each dr As DataRow In drs
    Dim y As Integer = dr("报表日期").Year '取Y为今年
    Dim m As Integer = dr("报表日期").Month '取M为当月
    Dim d As Integer = dr("报表日期").Day '取D为当日
    Dim dt1 As New Date(y, m, 1)  '获取本月第一天
    Dim dt2 As New Date(y, m, d) '获取本月第几天
    Dim dt3 As New Date(y, 1, 1)  '取本年度第一天
        dr("石子水泥月累计") = DataTables("日报").SQLCompute("sum(本期石子日销量)", "报表日期 >= '"& dt1 & "' And 报表日期<='" & dt2 & "' ")
    Next
    DataTables("日报").Save()

End If