if form1.add=false then
begin
position := 0;
with form1.ClientDataSet1 do
begin
Edit;
FieldByName('Fcredit').asstring:=self.CreditEd.Text ;
FieldByName('Fpay').asstring:=PayEd.text;
FieldByName ('Fprepay').asstring:=prepayEd.text;
FieldByName ('Fexcept').asstring:=ExceptEd.text;
FieldByName ('Fuseful').asstring:=floattostr(2500-strtofloat(CreditEd.text));
FieldByName ('Fmemo').asstring:=Memo1.text;
end;
DecodeDate(strtodate(form1.ClientDataSet1.fieldByName('Fdate').asstring),y1,m1,d1);
m1:=m1+1;
lDate:=EncodeDate(Y1,m1,1);
lDate:=lDate-1;
while (strtodate(form1.ClientDataSet1.fieldByName('Fdate').asstring)<> lDate) and (form1.ClientDataSet1.recno<=form1.ClientDataSet1.recordcount-1) do
begin
Credit:=floattostr(form1.ClientDataSet1.fieldByName('Fcredit').asfloat-
form1.ClientDataSet1.fieldByName('Fpay').asfloat+form1.ClientDataSet1.fieldByName('Fprepay').asfloat+
form1.ClientDataSet1.fieldByName('Fforwar').asfloat);
form1.ClientDataSet1.Next;
position := position +1;
form1.ClientDataSet1.edit;
form1.ClientDataSet1.FieldByName('Fcredit').asstring:=Credit;
form1.ClientDataSet1.FieldByName('Fuseful').asstring:=floattostr(2500-strtofloat(Credit));
end;
//form1.ClientDataSet1.Edit;
form1.ClientDataSet1.Post;
Form1.ClientDataSet1.ApplyUpdates(-1);
Form1.ClientDataSet1.MoveBy(-position);
end更新的时候提示, 列名'forder' 无效(我有FORDER这个字段!)不知道为什么会出现这样的错误!而下面这个不会出错!一样没有改变FORDER字段
else
begin
with form1.ClientDataSet1 do
begin
FieldByName('Fdate').asstring:=DateEd.text;
FieldByName('Fcredit').asstring:=CreditEd.text;
FieldByName('Fpay').asstring:=payEd.text;
fieldByName('Fprepay').asstring:=prePayEd.text;
FieldByName('Fexcept').asstring:=ExceptEd.text;
fieldByName('Fuseful').asstring:=floattostr(2500-strtofloat(CreditEd.text));
fieldByName('Fmemo').asstring:=Memo1.text;
end;
try
form1.ClientDataSet1.Post ;
Form1.ClientDataSet1.ApplyUpdates(0);
except
on e:Exception do
showmessage(pchar('数据提交出错'+#13+#13+e.message))
end;
begin
position := 0;
with form1.ClientDataSet1 do
begin
Edit;
FieldByName('Fcredit').asstring:=self.CreditEd.Text ;
FieldByName('Fpay').asstring:=PayEd.text;
FieldByName ('Fprepay').asstring:=prepayEd.text;
FieldByName ('Fexcept').asstring:=ExceptEd.text;
FieldByName ('Fuseful').asstring:=floattostr(2500-strtofloat(CreditEd.text));
FieldByName ('Fmemo').asstring:=Memo1.text;
end;
DecodeDate(strtodate(form1.ClientDataSet1.fieldByName('Fdate').asstring),y1,m1,d1);
m1:=m1+1;
lDate:=EncodeDate(Y1,m1,1);
lDate:=lDate-1;
while (strtodate(form1.ClientDataSet1.fieldByName('Fdate').asstring)<> lDate) and (form1.ClientDataSet1.recno<=form1.ClientDataSet1.recordcount-1) do
begin
Credit:=floattostr(form1.ClientDataSet1.fieldByName('Fcredit').asfloat-
form1.ClientDataSet1.fieldByName('Fpay').asfloat+form1.ClientDataSet1.fieldByName('Fprepay').asfloat+
form1.ClientDataSet1.fieldByName('Fforwar').asfloat);
form1.ClientDataSet1.Next;
position := position +1;
form1.ClientDataSet1.edit;
form1.ClientDataSet1.FieldByName('Fcredit').asstring:=Credit;
form1.ClientDataSet1.FieldByName('Fuseful').asstring:=floattostr(2500-strtofloat(Credit));
end;
//form1.ClientDataSet1.Edit;
form1.ClientDataSet1.Post;
Form1.ClientDataSet1.ApplyUpdates(-1);
Form1.ClientDataSet1.MoveBy(-position);
end更新的时候提示, 列名'forder' 无效(我有FORDER这个字段!)不知道为什么会出现这样的错误!而下面这个不会出错!一样没有改变FORDER字段
else
begin
with form1.ClientDataSet1 do
begin
FieldByName('Fdate').asstring:=DateEd.text;
FieldByName('Fcredit').asstring:=CreditEd.text;
FieldByName('Fpay').asstring:=payEd.text;
fieldByName('Fprepay').asstring:=prePayEd.text;
FieldByName('Fexcept').asstring:=ExceptEd.text;
fieldByName('Fuseful').asstring:=floattostr(2500-strtofloat(CreditEd.text));
fieldByName('Fmemo').asstring:=Memo1.text;
end;
try
form1.ClientDataSet1.Post ;
Form1.ClientDataSet1.ApplyUpdates(0);
except
on e:Exception do
showmessage(pchar('数据提交出错'+#13+#13+e.message))
end;
解决方案 »
- 请问谁有进销存中的先进先出的源码?
- 问一个关于登陆另一台电脑的问题(WnetAddConnection2函数)?
- 请问如何在Edit中按键的时候判断CAPS LOCK是否打开?
- 怎样对dbgrid中的数据记录实现具体定位?
- c++中的结构定义在delphi中如何使用???
- delphi 7 数据问题
- Application.messagebox除了MB_ICONERROR,MB_ICONQUESTION之外,还有哪些?(带图标的)
- 100分 搞了24个小时了 帮我来看一看!!! insert 的
- 我想知道TMEMO的最大容量是多少?
- 如果解决宏(%)替换?
- 怎样在qreport中显示当前的页码?
- Fieldbyname().asboolean 对应的SQL server中的数据类型是什么?(是否为bit)
1、cds里你加了字段 但没有FORDER
2、你的数据库表里没有FORDER。
第一种可能是怎么回事?什么是CDS?谢谢!