Function Function_Name(ADOQuery:TADOQuery;DataSource:TDataSource;TableName:String):String; Var i:Integer; Begin DataSource:=TDataSource.Create(Nil); ADOQuery:=TADOQuery.Create(Nil); DBEdit1.DataSource:=DataSource; DBEdit2.DataSource:=DataSource; DBEdit3.DataSource:=DataSource; 。。。。。。 For i:=0 To ADOQuery.FieldCount-1 Do Begin DBEdit1.DataField:=ADOQuery._________________ DBEdit2.DataField:=ADOQuery._________________ DBEdit3.DataField:=ADOQuery._________________ 。。。。。。 End; If DBEdit1.Text=' Then DBEdit1.Visible:=False; If DBEdit2.Text=' Then DBEdit1.Visible:=False; If DBEdit3.Text=' Then DBEdit1.Visible:=False; 。。。。。。 End; 因我是多个表同时调用这个过程的,所以我不能直接用ADOQuery.FieldValues['] 赋值。望高手指导!
----------------------------------------------
『惠安人才网』 www.harcw.net