用户归档和变量记录的区别，用户归档怎样做报表呢

在用户归档中加入如下2个表：
 创建2个归档，归档类型：无限制；通讯：无；控制变量：无；标记：上一次修改。
 gdblm：别名：归档变量名
   字段名      数据类型     长度   别名
   BLWB         字符串      30    变量文本
   DW           字符串      10    单位
   Tag_name     字符串      30    变量名
 
 ZDGD：整点归档
   字段名      数据类型     长度   别名
   BM          字符串      30     别名
   RQ          日期/时间          日期
   SJ          日期/时间          时间
   Tag_name    字符串      30     变量名
   ZHI         数(浮点)           值
 
 WINCC动作，触发器按每小时的00:00触发。
 Option Explicit
 Function action
 
  Dim gzd,RM_MASTER,tagstr,tag_name,table_name
  Dim tag_N,tag_T,tag_U,i,tag_W
  Dim Atag_N,Atag_T,Atag_U,max,Atag_W,idd,sql1,db_time
  
 ' On Error Resume Next
  RM_MASTER=GetTag("@RM_MASTER")
  'RM_MASTER=1
  'If RM_MASTER=1 Then
   table_name="UA#ZDGD"
   db_open
   sql="SELECT * FROM " & table_name & " ORDER BY ID DESC"
   Set rs = CreateObject("ADODB.Recordset")
   rs.Open sql, conn, 1, 1
   If Not rs.eof And Not rs.bof Then
    idd=rs(0)
    db_time=rs("SJ")
   Else
    idd=0
    db_time="00:00"
   End If 
   If Hour(db_time)<>Hour(Now()) Then
  
  
    sql="SELECT * FROM UA#gdblm ORDER BY ID"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 1, 1
    If Not rs.eof And Not rs.bof Then
     rs.MoveFirst
     i=0
     Do While Not rs.Eof
      tag_N=tag_N & ";" & rs(1)
      tag_T=tag_T & ";" & rs(2)
      tag_U=tag_U & ";" & rs(3)
      i=i+1
      rs.movenext
     Loop
     tag_N=Right(tag_N,Len(tag_N)-1)
     tag_T=Right(tag_T,Len(tag_T)-1)
     tag_U=Right(tag_U,Len(tag_U)-1)
     Atag_N=Split(tag_N,";")
     Atag_T=Split(tag_T,";")
     Atag_U=Split(tag_U,";")
     max= UBound(Atag_N)
     For i=0 To max
      idd=idd+1
      tagstr=Atag_N(i)
      tag_name=Atag_T(i)
      'If RM_MASTER=1 Then
      sql1=zdgd_sql1 (idd,tagstr,tag_name,table_name)
      'MsgBox sql
      conn.execute sql1
      'End If
     Next
     'MsgBox sql
    End If
  
   End If
  'End If