各位先進好：一般寫入資料時均是用以下方式
M table

A

B

C

D

E

F

G

H

I

J

K

L

N

M

O

P

Q

R

S

T........

MA.asString:='001;
M.FieldByName('A').AsString:='002';
有沒有辦法我在塞完A欄位後
動態往下一個B欄位作寫入的動作
B欄位寫完後，在動態的往C欄位作寫入的動作
依序往下做寫入的動作
以動態的方式去做

謝謝各位先進指教

您好
試試下面方法
for i:=0 to TableM.FieldCount-1 do
TableM.Fields[i].Value:=value;

您的問題是要以迴圈依序填值至各欄? 還是要像 dBase 的 Get - Read 於 User Key-In 滿格後自動跳到下一欄繼續 Key-In ?

最近也有想到這個方便性的問題

像會計，某些欄位是固定長度的

該如何判斷欄位已經輸入完成，

然後自動向下呢

多謝指教!

看到這個問題,忽然想到以前有回答過類似的
個人的作法: 1.覆寫Dbgrid(偷吃步),新增一Procedure,處理跳欄位的動作. 2.在Dbgrid.forbidden Event中呼叫此Procedure
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=79823

<textarea class="delphi" rows="10" cols="60" name="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids; type TDBGrid=class(DBGrids.TDBGrid) public procedure NextCol(); end; TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; ADOTable1DSDesigner: TAutoIncField; ADOTable1DATE1: TDateTimeField; ADOTable1MONTH: TIntegerField; ADOTable1IN1: TIntegerField; ADOTable1OUT1: TIntegerField; ADOTable1Deforbidden: TWideStringField; ADOTable1YEAR: TIntegerField; procedure DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin DBGrid1.NextCol; end; { TDBGrid } procedure TDBGrid.NextCol; var Idx:integer; begin If Length(InplaceEditor.text) = SelectedField.Size then begin Idx:= Self.Col 1; if Idx > Self.Columns.Count then Idx:= Self.Columns.Count; {如果沒做這個動作,則資料並不會進入SelectedField中} self.SelectedField.AsString:= InplaceEditor.text; {如果沒做這個動作,當移到下一個欄位時,會把原先輸入的值帶到下個欄位} InplaceEditor.Clear; Self.FocusCell(Idx,Row,True); end; end; end. </textarea>

------
星期一,二...無窮迴圈＠＠