Dbgrid.multiselect:=true;
Dbgrid.dgediting:=true;
if Dbggrid.SelectedRows.Count>0 then
with Dbggrid.DataSource.DataSet do
begin
for i:=0 to DbgRecipeDrug.SelectedRows.Count-1 do
begin
GotoBook(Pointer(Dbggrid.SelectedRows.Items[i]));
Edit;
FieldByName('**').Asstring:='****';
Post;
end;//for
BbtnSave.SetFocus;
end;//if & with
Dbgrid.dgediting:=true;
if Dbggrid.SelectedRows.Count>0 then
with Dbggrid.DataSource.DataSet do
begin
for i:=0 to DbgRecipeDrug.SelectedRows.Count-1 do
begin
GotoBook(Pointer(Dbggrid.SelectedRows.Items[i]));
Edit;
FieldByName('**').Asstring:='****';
Post;
end;//for
BbtnSave.SetFocus;
end;//if & with
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货