<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.6000.16608" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV dir=ltr align=left><SPAN class=968231108-27102008><FONT face=Arial
color=#0000ff size=2>Another thought would be to make the "JobNo" field an auto
incrementing field? I have to admit I cant remember too much about DBase but I
am sure it has auto incrementing fields. This would save you needing to
calculate the job number.</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=968231108-27102008></SPAN><FONT face=Arial><FONT
color=#0000ff><FONT size=2>J<SPAN
class=968231108-27102008>eremy</SPAN></FONT></FONT></FONT><BR></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> delphi-bounces@delphi.org.nz
[mailto:delphi-bounces@delphi.org.nz] <B>On Behalf Of </B>Marshland
Engineering<BR><B>Sent:</B> 27 October 2008 18:35<BR><B>To:</B>
delphi@delphi.org.nz<BR><B>Subject:</B> [DUG] Dbase File Data
Update<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV><FONT size=2>I am trying to increase a value in a dbaseIII file. When I
press the Inc button, the referenced dbEdit field increases with each click.
</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>However on exiting the program, the tblData['Jobno']
does not reflect the new value. </FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>From data module.</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>begin<BR> tblData.open;<BR>end;</FONT></DIV>
<DIV><FONT size=2>------------------------------------</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>procedure TForm1.bIncClick(Sender: TObject);</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>var iCurrJobno:integer; </FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>begin<BR>
iCurrJobno:=dm.tblData['Jobno'];<BR> iCurrJobno:=
iCurrJobno+1;<BR> dm.tblData.edit;<BR>
dm.tblData['Jobno'] := iCurrJobno;<BR>end;</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>There are probably other ways of doing this, but I would like
to know why this does not work. </FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Thanks Wallace</FONT></DIV></BODY></HTML>