各位好
在程式的執行中, 我開了一個預覽報表在同個from上,左邊我動態的更新資料庫資料, 右邊要如何動態
的把正確資料給秀在預覽裡呢

我認了很久, 在fastreport裡, 我不管是用frxDBDataset1或是對frxReport1下指令, 預覽看到的一直都是
舊的資料, 我要如何做才能即時的更新預覽內容呢

                    ShowReport(True); 

------
叔叔有練過,初學者不要學。

^^ 這個指令我下過了, 不理採我
我還用showmessage()的方法, 再preview之前輸出一次改過的值來論認
但沒效用
===================引 用 chih_kuan 文 章===================
ShowReport(True);

FR有這種功能嗎? 
===================引 用 dreameryeh 文 章===================
各位好
在程式的執行中, 我開了一個預覽報表在同個from上,左邊我動態的更新資料庫資料, 右邊要如何動態
的把正確資料給秀在預覽裡呢

我認了很久, 在fastreport裡, 我不管是用frxDBDataset1或是對frxReport1下指令, 預覽看到的一直都是
舊的資料, 我要如何做才能即時的更新預覽內容呢

版主大大
fastreport 可以自己拉出一個預覽元件
我把預覽放右邊, 自己key 入的欄位放左邊
想要造成左邊key完值後, 右邊把資料立馬show出來
我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示
我試著用指令來重取都沒成功

ShowReport(true); <<===不理采我


===================引 用 P.D. 文 章===================
FR有這種功能嗎?
===================引 用 dreameryeh 文 章===================
各位好
在程式的執行中, 我開了一個預覽報表在同個from上,左邊我動態的更新資料庫資料, 右邊要如何動態
的把正確資料給秀在預覽裡呢

我認了很久, 在fastreport裡, 我不管是用frxDBDataset1或是對frxReport1下指令, 預覽看到的一直都是
舊的資料, 我要如何做才能即時的更新預覽內容呢

我知道預覽如何處理, 但我從來不知道一旦FR已開出FRF的內容預覽, 還可以線上直接再變動的功能, 一般都是得關閉再重來, 還是FR新版已可以這樣做了!
===================引 用 dreameryeh 文 章===================
版主大大
fastreport 可以自己拉出一個預覽元件
我把預覽放右邊, 自己key 入的欄位放左邊
想要造成左邊key完值後, 右邊把資料立馬show出來
我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示
我試著用指令來重取都沒成功

ShowReport(true); <<===不理采我


===================引 用 P.D. 文 章===================
FR有這種功能嗎?

版大, 這就是我所想要做的, 我把fr開出來, 但想透過程式把資料修正後, 再把fr開閉再開啟一次
希望能看到最近的, 關閉再重來是指他動態開出的預覽, 但我現在是直接開預覽視窗出來

===================引 用 P.D. 文 章===================
我知道預覽如何處理, 但我從來不知道一旦FR已開出FRF的內容預覽, 還可以線上直接再變動的功能, 一般都是得關閉再重來, 還是FR新版已可以這樣做了!
===================引 用 dreameryeh 文 章===================
版主大大
fastreport 可以自己拉出一個預覽元件
我把預覽放右邊, 自己key 入的欄位放左邊
想要造成左邊key完值後, 右邊把資料立馬show出來
我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示
我試著用指令來重取都沒成功

ShowReport(true); <<===不理采我


===================引 用 P.D. 文 章===================
FR有這種功能嗎?

不曉得您用哪一版fastreport?
還是您能列出你的程式碼,讓大家再幫你看看?
我剛才用3.1X版,小試了一下,是可以的


[code delphi]
type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
ADOConnection1: TADOConnection;
frxDBDataset1: TfrxDBDataset;
frxPreview1: TfrxPreview;
frxReport1: TfrxReport;
Button1: TButton;
ADODataSet1EmpNo: TIntegerField;
ADODataSet1LastName: TWideStringField;
ADODataSet1FirstName: TWideStringField;
ADODataSet1PhoneExt: TWideStringField;
ADODataSet1HireDate: TDateTimeField;
ADODataSet1Salary: TFloatField;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
maxval:integer=201;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Append;
ADODataSet1EmpNo.Value:=maxval;
ADODataSet1LastName.Value:='test';
ADODataSet1FirstName.Value:='test';
ADODataSet1PhoneExt.Value:='1234';
ADODataSet1HireDate.Value:=Now;
ADODataSet1Salary.Value:=20000;
frxReport1.ShowReport();
maxval:=maxval 1;
end;
[/code]

表單環境
[code delphi]
object Form1: TForm1
Left = 192
Top = 114
Width = 844
Height = 576
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object frxPreview1: TfrxPreview
Left = 32
Top = 208
Width = 777
Height = 289
OutlineVisible = False
end
object Button1: TButton
Left = 184
Top = 24
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
CommandText = 'select * from employee'
Parameters = <>
Left = 56
Top = 40
object ADODataSet1EmpNo: TIntegerField
FieldName = 'EmpNo'
end
object ADODataSet1LastName: TWideStringField
FieldName = 'LastName'
end
object ADODataSet1FirstName: TWideStringField
FieldName = 'FirstName'
Size = 15
end
object ADODataSet1PhoneExt: TWideStringField
FieldName = 'PhoneExt'
Size = 4
end
object ADODataSet1HireDate: TDateTimeField
FieldName = 'HireDate'
end
object ADODataSet1Salary: TFloatField
FieldName = 'Salary'
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Co'
'mmon Files\Borland Shared\Data\dbdemos.mdb;Persist Security Info'
'=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 64
Top = 88
end
object frxReport1: TfrxReport
Version = '3.15'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
Preview = frxPreview1
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = '預設'
ReportOptions.CreateDate = 39829.595292963000000000
ReportOptions.LastChange = 39829.595292963000000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
Left = 24
Top = 136
Datasets = <
item
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
end>
Variables = <>
Style = <>
object Page1: TfrxReportPage
PaperWidth = 210.000000000000000000
PaperHeight = 297.000000000000000000
PaperSize = 9
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object MasterData1: TfrxMasterData
Height = 22.677180000000000000
Top = 18.897650000000000000
Width = 718.110700000000000000
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
RowCount = 0
object Memo1: TfrxMemoView
Left = 15.118120000000000000
Top = 3.779530000000001000
Width = 79.370130000000000000
Height = 18.897650000000000000
DataField = 'EmpNo'
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.Strings = (
'[frxDBDataset1."EmpNo"]')
end
object Memo2: TfrxMemoView
Left = 98.267780000000000000
Top = 3.779530000000001000
Width = 158.740260000000000000
Height = 18.897650000000000000
DataField = 'LastName'
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.Strings = (
'[frxDBDataset1."LastName"]')
end
object Memo3: TfrxMemoView
Left = 260.787570000000000000
Top = 3.779530000000001000
Width = 120.944960000000000000
Height = 18.897650000000000000
DataField = 'FirstName'
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.Strings = (
'[frxDBDataset1."FirstName"]')
end
object Memo4: TfrxMemoView
Left = 389.291590000000000000
Top = 3.779530000000001000
Width = 30.236240000000000000
Height = 18.897650000000000000
DataField = 'PhoneExt'
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.Strings = (
'[frxDBDataset1."PhoneExt"]')
end
object Memo5: TfrxMemoView
Left = 427.086890000000000000
Width = 158.740260000000000000
Height = 18.897650000000000000
DataField = 'HireDate'
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.Strings = (
'[frxDBDataset1."HireDate"]')
end
end
end
end
object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBDataset1'
CloseDataSource = False
DataSet = ADODataSet1
Left = 152
Top = 80
end
end
[/code]