Office中国论坛/Access中国论坛

标题: 请教如何把前一天的终表码放在今天的初始表码上呀 [打印本页]

作者: tszysun 时间: 2006-9-5 22:53
标题: 请教如何把前一天的终表码放在今天的初始表码上呀
我在做电力的统计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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)