CxGrid控件的多选

最新推荐文章于 2023-06-04 08:01:31 发布

最新推荐文章于 2023-06-04 08:01:31 发布 · 285 阅读

文章标签：

#J#

delphi 专栏收录该内容

295 篇文章

订阅专栏

CxGrid控件的多选

{--将主单号插入到包信息里 cyj 2009-10-28 --}
procedure TFGSCYEditForm.Insert_ZDH;
var
I,J: Integer;
//Bk:Tbookmark;
ASQLStr : String;
begin
with cxGridDBTableView3.DataController, cxGridDBTableView3.DataController.DataSet do
begin
DisableControls;

        for i:= 0 to GetSelectedCount-1 do
        begin
          Bookmark := GetSelectedBookmark(i);
          if not ( dsMaster.DataSet.State in [dsEdit]) then
          begin
            dsMaster.DataSet.edit;
          end;

dsMaster.DataSet.FieldByName('FGSCYZDH').AsString :=SCZDXXDialogForm.dsZDB.DataSet.FieldByName('BillNo').AsString ;

end;

        EnableControls;
       // Free(Bk);

end;

TUserDataSet(SCZDXXDialogForm.dsZDB.DataSet).ApplyUpdates(); //--提交数据集
TUserDataSet(dsMaster.DataSet).ApplyUpdates(); //--提交数据集

end;