Delphi6中，DataModule、QuickRep、Table三控件的结合真头痛？帮帮我、谢谢大家。

在delphi6中，在DataModule中放一Table控件，并且全部设好了，其active设为了true,QuickRep中我已引用了dataModule单元，并且在QuickRep的dataset中我也设好了（DataModule2.Table1），但在Qrexpr控件的expression中却找不到table1。为什么，在以前版本（delphi5）中我就是这么设的，很好，为什么到了delphi6中不行了。谢谢大家，解决了这问题我一定送分。

13 个解决方案

#1

按你說的
我試了一下
是可以的你再查一下

#2

有一点是可以肯定的，和数据模块没有关系

#3

你们用的delphi6吗？在delphi5中，是可以的，但在delphi6中，我却没有设防成功。

#4

在D5可以的,D6也行的

#5

liao_yy() ：你试试好不好？我和朋友已试过多次了

#6

没有也不管，照写就是，只要编译能通过。delphi好像经常出这种毛病

#7

呵呵，给你发个小的软件也可以，delphi6的也很好用的，动态的也行的，而你又是静态的，有什么不可以的？

#8

unit daying;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, ExtCtrls, Qrctrls, DB, ADODB;

type
  Tdayingform = class(TForm)
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    ...
    QRLabel21: TQRLabel;
    DetailBand1: TQRBand;
    QRShape17: TQRShape;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRShape26: TQRShape;
    QRShape27: TQRShape;
    QRShape28: TQRShape;
    QRShape30: TQRShape;
    QRShape31: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    yssTable: TADOTable;
    QRDBText5: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText6: TQRDBText;
    QRShape5: TQRShape;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dayingform: Tdayingform;

implementation

uses Projectdatmodule;
{$R *.DFM}

end.

#9

object dayingform: Tdayingform
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = 'dayingform'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object QuickRep1: TQuickRep
    Left = -8
    Top = 0
    Width = 794
    Height = 1123
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    DataSet = yssTable
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      '''''')
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      100
      2970
      100
      2100
      100
      100
      0)
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.OutputBin = Auto
    PrintIfEmpty = True
    SnapToGrid = True
    Units = MM
    Zoom = 100
    object PageHeaderBand1: TQRBand
      Left = 38
      Top = 38
      Width = 718
      Height = 78
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        206.375
        1899.70833333333)
      BandType = rbPageHeader
     ...
object yssTable: TADOTable
    Connection = ProjectDataModule.Projectconnection
    TableName = 'yss_ls'
    Left = 320
    Top = 224
  end
end

#10

是不是因为我用的是D版的，我又重装了D5，结果没问题，而D6就不行为什么？
而且好象不只我一个人出现了这样的问题：http://www.csdn.net/expert/topic/882/882150.xml?temp=.3231623

#11

我也碰到过，bug巴

#12

请问大家如果解决？

#13

琦哥好！知道我是谁吗？哈哈！你应该能猜出来吧！哎！你的问题解决了没有？是不是还没有解决呀？我今天从这里找了半天，通过我的一个朋友的朋友的朋友的……哎！真不知道转了多少个弯才找到一个学Delphi的，他现在还没弄清楚是怎么回事，他用的是Delphi5，他在Delphi5中试了一下很好，我把Delphi6的安装盘（比着你那张我刻了一张）给他了，想让他装上Delphi6试试。他说今天晚上装上试试看。哎，改天我再找找他看看有没有结果。有结果后我在QQ上留言给你吧！解决后给我加分呀！哈哈！

#1