5,379
社区成员
发帖
与我相关
我的任务
分享
try
数据集.DisableControls;
//你的代码
finally
数据集.EnableControls;
end;
cxGrid1BandedTableView1.DataController.UpdateData;
if AItem.EditValue<>'' then begin
id:=cxGrid1BandedTableView1.Controller.FocusedColumn.Index;
for i:=0 to cxGrid2DBBandedTableView1.Controller.SelectedRecordCount-1 do begin
with dmMain.ADOQy do begin
if Active then Close;
SQL.Clear;
SQL.Add('select top 1 par_udf1_nv,par_udf2_nv from tb_parameter where par_parent_nv=''Shift'' and par_descc_nv='''+AItem.EditValue+'''');
Open;
if not IsEmpty then begin
cxGrid2DBBandedTableView1.Controller.FocusedRow:=cxGrid2DBBandedTableView1.Controller.SelectedRows[i];
cxGrid2DBBandedTableView1.Columns[id].EditValue:=AItem.EditValue;
cxGrid2DBBandedTableView1.Columns[id+3].EditValue:=FieldValues['par_udf1_nv'];
cxGrid2DBBandedTableView1.Columns[id+4].EditValue:=FieldValues['par_udf2_nv'];
end;
end;
end;
end;
var
n,Row:Ineteger;
SqlStr :string;
begin
n:=cxGridDBQuery.GetColumnByFieldName('AssBarCode').Index;// AssBarCode 字段名字
for Row:=0 to cxGridDBQuery.DataController.GetSelectedCount - 1 do
begin
D :=cxGridDBQuery.DataController.GetSelectedRowIndex(Row);
ACode :=cxGridDBQuery.ViewData.Rows[D].Values[n];
SqlStr :=SqlStr +' or AssBarCode='''+ACode+'''';
showmessage(sqlstr);
//下面你可以定位数据集,然后再修改ID值
end;
end;