ClientDataSet1和ClientDataSet2同时OPEN不能更新吗
奇怪的问题,ClientDataSet1和ClientDataSet2同时OPEN,但是我按BitBtn_SAVE保存时,显示是保存的数据,但是查询后还是原来的数据,那里出问题了?
procedure TForm1.BitBtn_CXClick(Sender: TObject);
begin
//查询
ClientDataSet1.RemoteServer:=DSProviderConnection1;
ClientDataSet2.RemoteServer:=DSProviderConnection1;
try
ClientDataSet1.Close;
ClientDataSet1.CommandText:='SELECT U_id,U_name FROM T_USER';
ClientDataSet1.Open;
DBGridEh1.DataSource:=DataSource1;
DataSource1.DataSet:=ClientDataSet1;
ClientDataSet2.Close;
ClientDataSet2.CommandText:='SELECT U_XH,U_MC FROM T_BJ';
ClientDataSet2.Open;
With ClientDataSet2 do
begin
combobox1.Items.Add(Trim(ClientDataSet2.FieldByname('U_MC').AsString));
ClientDataSet2.Next;
end;
except
on E: Exception do
begin
application.MessageBox('失败 ', '提示', mb_iconinformation + mb_ok);
end;
end;
end;
procedure TForm1.BitBtn_SAVEClick(Sender: TObject);
begin
//保存
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('U_name').AsString:=Edit1.Text;
ClientDataSet1.ApplyUpdates(-1);
application.MessageBox(PChar('保存成功'+CHAR(13)+CHAR(13)), '提示', mb_iconinformation + mb_ok);
end;