请教如何把前一天的终表码放在今天的初始表码上呀

tszysun

我在做电力的统计ADP程序,因为没有基础,感觉好难
我的表是这样的:



       日期       smalldatetime  4     0     


       班次_ID  tinyint     1     0     


       锅炉_ID  tinyint     1     0     


       开始时间       smalldatetime  4     0     


       停止时间       smalldatetime  4     0     


       运行状态_ID  tinyint     1     0     


       汽包压力       decimal   5     0     


       汽包焓    decimal   5     1     


       主汽压力       decimal   5     0     


       主汽温度       decimal   5     0     


       主汽流量       int    4     0     


       主汽焓    decimal   5     1     


       主汽流量始数       int    4     0     


       主汽流量终数       int    4     0     


       给煤机1流量       int    4     0     


       给煤机1始数       int    4     0     


       给煤机1终数       int    4     0     


          记录人    char 50    1     


       说明       char 50    1     


       审核       bit    1     1     


共有二台锅炉,使用[锅炉_ID]进行区别,三个班次用[班次_ID],在做录入窗体过程中想实现把上一个班次的本编号锅炉[主汽流量终数]读出来,放到窗体的[主汽流量始数]中,我用的是 Dlookup 函数如下:


Private Sub Command80_Click()


Dim A As Integer
Dim B As Date


Dim GMJ As String


A = 班次_ID - 1
B = 日期


If A = 0 Then              '如果是第一个班,就找到前一天的数据
    A = 3                        
    B = B - 1
End If
'从锅炉表中找出上一班的数据
GMJ = DLookup("[给煤机1终数]", "[锅炉]", "[日期] =  # " & B &  " # "  _


& " and  [班次_ID] =  A   &  " and  [锅炉_ID]= " & [forms]![锅炉][锅炉_ID]   )


[给煤机终数]=GMJ
End Sub
可是在Dlookup这一句总是报数据类型或是其它的错误,我这么做对吗?</FONT