有一個有趣的狀況:

在DBGird 中指定一個事件 DBGrid1ColExit
[code delphi]
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if DBGrid1.SelectedIndex=XXXX then DBGrid1.SelectedIndex:=0;
DBGrid1.setFocus;
end;

[/code]

如果 XXXX 等於 0 時,
這個式子將不會生效.(怎麼跑都會跑到[1])

那麼我們就不能去: 檢查 [0] 的值,在檢查不過後,強行讓它保持在[0]的位置.

請有此經驗的先進指點一下,Thanks

編輯記錄

按你的方式測並沒有任何問題, 確實會跳到 0, 是不是你的 table 沒有 open?

謝謝回覆

我重新試了一個 Clean 的 樣本,還是會這樣.
ADODataset1 當然有開啟.
請看一下.

我在 Delphi2007 做的.


[code delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if (DBGrid1.SelectedIndex=0) and (DBgrid1.SelectedField.AsString='1') then //<-這一行判斷後,條件符合,但没有把 Focus 攔在 cloumn[0].
DBGrid1.SelectedIndex:=0;
DBgrid1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.Align:=alClient;
end;

end.

[/code]

Thanks

sorry, 沒仔細看你的內文, 發現你的程式寫法的確會造成 index 無法歸位, 但沒有時間幫你細查, 看看有沒有其他高人可以協助!

還是謝謝您

換個方法就可以了.

[code delphi]
if (DBGrid1.SelectedIndex=0) and (DBgrid1.SelectedField.AsString='1') then ABORT; //<-改成這樣後可行.
[/code]

編輯記錄