向 向前 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #1 一个DBEDIT 构件，已经关联上了数据库表中的一个字段，但是我想在程序执行添加记录时，先给它赋上一个值，这个值是关键字的最大值加一，但是DBEDIT又没有VALUE属性，该怎么赋呢？
S SuperMMX Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #2 连的字段是什么类型的字段，数字的话， IntToStr StrToInt .Text 属性是显示的东西。
W www Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #3 table1.insert; dbedit1.text:='asdfasdf';
W wumeng Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #4 g:www. BeforePost Or AfterInsert Or BeforeInsert dbedit1.text:='asdfasdf';
刘 刘素杰 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #5 在AfterInsert事件中 lQuery: TQuery; lQuery.DatabaseName := 原Query的DatabaseName; lQuery.SQL.Text := 'Select Max(MasterField) from Table'; lQuery.Open; if lQuery.eof then dbEdit1.Text := '1' else dbEdit1.Text := IntotoStr(lQuery.Field[0].Value);
在AfterInsert事件中 lQuery: TQuery; lQuery.DatabaseName := 原Query的DatabaseName; lQuery.SQL.Text := 'Select Max(MasterField) from Table'; lQuery.Open; if lQuery.eof then dbEdit1.Text := '1' else dbEdit1.Text := IntotoStr(lQuery.Field[0].Value);
C Crab Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #6 应该直接修改其对应的字段值 //算出最大值 Maxvalue table1.insert; table1.fieldbyname('fileld1').Value := maxvalue; table1.post
应该直接修改其对应的字段值 //算出最大值 Maxvalue table1.insert; table1.fieldbyname('fileld1').Value := maxvalue; table1.post
C CJ Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #7 DBEdit1.DataSource.DataSet.fieldbyname(DBEdit1.DataField).Value := yourValue;
L lich007 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-28 #8 给字段赋值，可以影响DBedit的Text,Table1.fieldbyname('aa').asinteger:= Table1.fieldbyname('aa').asinteger+1
