使用  水晶报表5.1 中文,vb6 
内容在水晶报表的page hearder 中,A4横。
在水晶报表中,数据显示一条,  为什么用vb6御览却又5条记录。另,水晶报表设计的时候,连接没有设置密码的Access 库时,用97格式不需要密码,但2k 和2003格式要,为什么?

解决方案 »

  1.   

    在水晶报表中,数据显示一条,  为什么用vb6御览却又5条记录。
    //传递的记录集合不一样显示数据不一样另,水晶报表设计的时候,连接没有设置密码的Access 库时,用97格式不需要密码,但2k 和2003格式要,为什么
    //安全性有提高
      

  2.   

    在水晶报表中,数据显示一条,  为什么用vb6御览却又5条记录。
    //传递的记录集合不一样显示数据不一样
    ====可我在VB6中帮定的同张表。
    On Error GoTo ErrPrinter
      crwReport.DataFiles(0) = DATABASE_PATH + DATABASE_NAME
      crwReport.ReportFileName = REPORT_PATH + "rpt0020.rpt"
      'crwReport.Formulas(0) = "strTime='" & Format(Time, "hh:mm:ss") & "'"
      'crwReport.Formulas(1) = "strLeftTopString='" & "  HM0040  " & g_strGsinmx & "'"
      crwReport.Destination = intDestination
      crwReport.CopiesToPrinter = 1
      crwReport.WindowTitle = Me.Caption '"ニユヘィキ「ニア"
      crwReport.WindowTop = 0
      crwReport.WindowLeft = 0  crwReport.WindowHeight = Screen.Height / Screen.TwipsPerPixelY - 25
      crwReport.WindowWidth = Screen.Width / Screen.TwipsPerPixelX
      crwReport.Action = 1
      Exit SubErrPrinter:
       If Err.Number = 20000 Then Exit Sub  'Cancel Error
       Dim lngRet As Long
       lngRet = msgSystemError(Me.Name, "Print_Out", vbRetryCancel, vbCritical)
       Select Case lngRet
          Case vbRetry
             Resume
          Case Else
             Exit Sub
       End Select
    这是CODE 实在想不出来为什么?另,水晶报表设计的时候,连接没有设置密码的Access 库时,用97格式不需要密码,但2k 和2003格式要,为什么
    //安全性有提高===那需要输入什么密码?