您所在位置：主题：主题：关于VB中使用SQL语句查询时间段内的记录的问题，时间来源为DTPicker控件
sniperkang
[专家分：0] 发布于 2005-06-11 12:22:00
如题，想得到DTPicker3.Value和DTPicker4.Value之间金额的和，按例子写如下代码，得到结果始终为0，在VB区发贴没人响应[em17]数据库区有没有高手可以指点一下
Private Sub Command2_Click() '出售结算
If DTPicker3.Value < DTPicker4.Value Then
Data2.RecordSource = "select sum(金额) as 交易额 from 售书交易表 where 日期 between" + Chr(35) + Trim(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Trim(DTPicker2.Value) + Chr(35) + ""
Data2.Refresh
If Data2.Recordset.Fields(0) <> "" Then
Text3.Text = Format(Data2.Recordset.Fields(0), "0.0")
Else
Text3.Text = 0
End If
Else
MsgBox "系统日期输入有误", vbOKOnly + vbExclamation, "提示信息"
DTPicker3.Value = DTPicker4.Value - 1
End If
End Sub
Private Sub Command2_Click() '出售结算
If DTPicker3.Value < DTPicker4.Value Then
Data2.RecordSource = "select sum(金额) as 交易额 from 售书交易表 where 日期 between" + Chr(35) + Trim(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Trim(DTPicker2.Value) + Chr(35) + ""
Data2.Refresh
If Data2.Recordset.Fields(0) <> "" Then
Text3.Text = Format(Data2.Recordset.Fields(0), "0.0")
Else
Text3.Text = 0
End If
Else
MsgBox "系统日期输入有误", vbOKOnly + vbExclamation, "提示信息"
DTPicker3.Value = DTPicker4.Value - 1
End If
End Sub