我想在多张表中同时使用同一个 DBGrid 和多个 DBEdit。 当DBGrid中连接的表改变时,每点击单元格的时候,DBEdit是动态的随着的改变的 procedure TF_Main.DBGrid_DBCellClick(Column: TColumn); Var i:Integer; DBedit:Array[1..20] Of TDBEdit; begin with DBGrid_DB do begin if FieldCount<1 then exit; For i:=0 To FieldCount-1 Do Begin If i>FieldCount-1 Then Exit Else Begin DBEdit[i]:=TDBEdit.Create(Nil); DBEdit[i].Text:=Fields[i].Text; End; End; end; end; 但是程序会报错???郁闷啊! 顺便说一下,最好不要对 DBEdit[i]赋值 。 因为是动态的,所以赋值也会出错,我试过了!
----------------------------------------------
『惠安人才网』 www.harcw.net