Dim dv As DataRow
Dim de As DataRow
dv = DataTables("收购").find("日期 >= #" & Vars("vdate") & "#")
de = DataTables("收购").find("日期 <= #" & Vars("edate") & "#")
If dv IsNot Nothing And de IsNot Nothing Then
vars("Suma") = DataTables("收购").Compute("Sum(头数)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
vars("Sumb") = DataTables("收购").Compute("Sum(重量)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
vars("Sumc") = DataTables("收购").Compute("Sum(收购金额)","[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
vars("Sumaa") = DataTables("销售").Compute("Sum(份数)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
vars("Sumbb") = DataTables("销售").Compute("Sum(重量)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
vars("Sumcc") = DataTables("销售").Compute("Sum(金额)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
Else
MessageBox.Show("超出日期范围!")
End If
肯用功,这样就行了!多谢!