Ich muss Euch leider nocheinmal belästigen.
Ich habe nun alles durchsucht und keine Lösung gefunden, wenn man danach googelt, kommt zwar was, aber das hat mit meinem Problem nix zu tun.
Der Datenaufbau, eigentlich wie immer, soll heissen, so wie in anderen Projekten auch.
MYConnection<->SQLDataSet4<->SQLProvider4<->CDS4(TClientDataSet)
Ich mache eigentlich nix wie einen EDIT auf den CDS4,
ändere Zellinhalte, einen POST, damits in den SQLDataSet geschrieben wird einen APPLYUPDATES(-1).
und da passiert der Fehler. Verstehe ich nicht, denn das funktioniert doch immer so.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| with DataModul.DataModule1 do
begin
with SQLDataset4 do
begin
if Active then Active:=False;
SQL_string:='select ID, DeliveredQty, BruttoGewicht, Nettogewicht, '+
'Referenzgewicht, ReferenzStueckzahl '+
'from packingstructure where ID='+
IntToStr(ID)+'; ';
CommandText:=SQL_string;
Active:=True;
if RecordCount=1 then
with CDS4 do
begin
Active:=True;
Edit;
FieldByName('DELIVEREDQTY').Value:=anzahl_ist;
FieldByName('BRUTTOGEWICHT').Value:=brutto_e;
FieldByName('NETTOGEWICHT').Value:=netto_e;
FieldByName('REFERENZGEWICHT').Value:=stueckgewicht;
FieldByName('REFERENZSTUECKZAHL').Value:=referenzstueckzahl;
FieldbyName('ID').Value:=ID;
Post;
ApplyUpdates(-1); end
else
begin
ShowMessage('<> 1 Satz');
exit;
end;
Active:=False;
end; |
!!HELP please!!
