2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TBuyerCode_Frm.btnSB_BackClick(Sender: TObject);
var
iloop:integer;
begin
inherited;
for iloop:=0 to cxGrid1DBTableView1.ViewData.RowCount-1 do
begin
with cxGrid1DBTableView1.ViewData.Rows[iloop] do
begin
if VarToStr(Values[0])='' then
begin
Values[0]:=True;
end;
end;
end;
end;