编写VB程序的一点问题

输入字符串后一般得要个结束的键，通常是回车，那么这时就可以把原来在command1-click下的程序应该放在回车键的响应事件中，如：

Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)

    If KeyAscii = 13 Then

        Select Case Index

            Case 0

                MSChart2.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = Val(Text2(0).Text)

            Case 1

                MSChart2.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = Val(Text2(1).Text)

            Case 2

                MSChart2.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = Val(Text2(2).Text)

            Case 3

                MSChart2.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = Val(Text2(3).Text)

        End Select

    End If

End Sub

另外也可以放在change事件中，但是该事件每每输入一个字符就会进行判断

首先，这个问题的代码不是三两行能解决的，

建立一个交通卡类模块调用，用交通卡ID做为关键字识别，当某个卡第一次被刷时按N元计费并在数据库更新，并在类模块内开始计时，当时间超过120分钟后再未检测到刷卡信息时关闭并卸载该类实例，若在120分钟内检测到第二次刷卡信息时按（N－1）元计费并在数据库更新，同时清除计时值重新计时，直到下次刷卡信号送到．做为实际应用，不能把一天中的所有乘车次数累计到24：00时结算，如果刷卡机或服务器故障将是严重损失啊，所以我觉得还是刷一次记一下帐比较保险．

可以这样实现：

首先在Command1的click按钮事件中编写代码 ，获取点击DTPicker1时选中的日期DateStr。

然后根据DateStr来找到Data控件连接的XS数据中的B列同一个日期项，最后根据这项找出这行对应的B列金额数据。

对于一天的金额统计，也是根据这个原理。根据要求取出数据之后，再返回进行加法 *** 作。最后在窗体上进行显示。

这是一个简单的数据库 *** 作问题。代码就不列出了。

---