如何在VB 6.0中选择以前的RECORD

时间:2009-07-02 05:51:27

标签: vb6

使用VB 6.0

如何选择上一行值?

使用日期选择器选择fromdate和todate之间的日期

代码

Dim stdate, endate as string

stdate = Fromdate
endate = todate

示例:

fromdate:  01-01-2009
todate: 01-06-2009

数据将从日期显示为todate。

我想选择上一个日期表示上一行值。 如何选择上一行值?

我们不能给予

stdate = - fromdate 
endate =  - todate

它将显示31-01-2008至31-05-2009之间的数据

我们不能给予

Stdate = <fromdate
endate = < todate

它将在01-01-2009之前显示数据,我们也不能使用&gt;在条件之间

Stdate = fromdate (Here how can I give “from previous row value of the fromdate”)
endate =  todate (here how can I give   “to previous row value of the todate”)

示例:

    id, date, name

    01, 02-01-2009, raja
    01, 04-01-2009, raja
    02, 04-01-2009, ravi

so on.....

01, 28-05-2009, raja
01, 31-05-2009, raja

so on...

选择日期stdate = 04-01-2009,endate = 31-05-2009

输出shoud显示如下 -

01, 02-01-2009, raja
01, 04-01-2009, raja
02, 04-01-2009, ravi

.......

01, 28-05-2009, raja

它应该在ssdate和endate之前播放一个记录。

如何选择上一行值?

在VB 6代码中需要帮助。

1 个答案:

答案 0 :(得分:1)

我不完全理解你在做什么,但如果你有一个按日期排序的记录集对象,你需要像

这样的东西
If (recordset.BOF = False) Then
   recordset.MovePrevious
End If

如果您在开始日期之前询问如何获取包含一条记录的记录集,则必须扩展查询以尝试在fromdate之前至少包含记录,找到带有fromdate的第一条记录,然后使用上面的MovePrevious方法。

如果您只是询问如何在给定日期之前获取日期,请使用DateAdd方法。

示例 - 以下代码将从2009年2月1日减去1天,并将1/31/2009放入可用的值。

dtPreviousDate = DateAdd("D", CDate("02-01-2009"), -1)