請教各位大大,小弟寫了一個小程式
RUN的時候,卻出現下面的錯誤訊息的視窗
Project Sample.exe raised exception class EDatabaseError with message 'Table1: No index currently active'.
Process stopped. Use Step or Run to continue.
這個小程式是讀取test.dbf到ListBox1,然後我點其中一項後,就會呼叫SndForm上面會列出我選的項目的相關資料
另外我寫的這個程序不知道對不對procedure SetClickedData(aSource: TDataSource; aTbl:TTable ; const aName : String);

請各位大大我哪裡出了問題了呢?
以下是我的程式碼
第一個Form
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses SndForm;

{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
Table1.DatabaseName := GetCurrentDir;
Table1.TableName := 'TEST.DBF';
Table1.Active := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
While not Table1.EOF do
begin
ListBox1.Items.Add(Table1.FieldByName('Name').Text);
Table1.Next;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
aStr : String;
begin
aStr := ListBox1.Items[ListBox1.ItemIndex];
Form2.SetClickedData(DataSource1,Table1,aStr);
Form2.ShowModal;
end;
end.
第二個Form
unit SndForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, DB, DBTables;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
DBText1: TDBText;
DBText2: TDBText;
aTable: TTable;
aDataSource: TDataSource;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
aNameStr: String;
public
{ Public declarations }
procedure SetClickedData(aSource: TDataSource; aTbl:TTable ; const aName : String);
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.SetClickedData(aSource: TDataSource; aTbl:TTable ; const aName : String);
begin
aDataSource := aSource;
aTable := aTbl;
aNameStr := aName;
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
DBText1.DataSource := aDataSource;
DBText2.DataSource := aDataSource;
if aTable.FindKey([aNameStr]) then
begin
DBText1.DataField := 'NAME';
DBText2.DataField := 'GOOD';
end;
end;
end.

附加檔案：456ea18275e18_test.rar

因你的資料表沒建立索引鍵
不然也可以使用locate，if aTable.Locate('NAME',aNameStr,[]) then

感謝感謝,可以了耶^^
是不是沒幫資料表建立索引鍵
就無法使用搜尋的指令
像SetKey,GoToKey,GoToNearest等等的

===================引 用 文 章===================

因你的資料表沒建立索引鍵
不然也可以使用locate，if aTable.Locate('NAME',aNameStr,[]) then

findkey, findnearest
setkey(或editkey) ...gotokey(或gotonearest)
lookup
等都需建立索引欄位
locate則不需要

謝謝,又學到該注意的事情啦^^