Question

VB写个小程序

本人界面有DTPicker1,一个Text1，Command1三个控件，
数据库为DATA,要读表XS的数据（表中有三有列分别为A B C）。 要求在DTPicker1控件选中日期后，点击Command1后，
Text1就能显B类现金总合。（说明一点把当天的现金统计）数据如下：

A B C
日期 金额 结算方式
2010-03-01 20 现金
2010-03-02 20 刷卡
2010-03-03 20 现金
2010-03-04 20 刷卡
2010-03-05 20 现金
2010-03-06 20 现金
2010-03-07 20 刷卡
2010-03-08 20 现金
2010-03-09 20 现金

Answer 1

可以这样实现：
首先在Command1的click按钮事件中编写代码 ，获取点击DTPicker1时选中的日期DateStr。
然后根据DateStr来找到Data控件连接的XS数据中的B列同一个日期项，最后根据这项找出这行对应的B列金额数据。
对于一天的金额统计，也是根据这个原理。根据要求取出数据之后，再返回进行加法操作。最后在窗体上进行显示。
这是一个简单的数据库操作问题。代码就不列出了。

追问

大哥能把求和的SQL查询代码发给我一份吗，我知道这个也是你们辛苦学习来的。

Answer 2

SELECT SUB（B） FROM XS WHERE A = " & "#" & DTPicker1 & "#""