for i:=0 to CheckListBox1.Items.Count-1 do
if dAdoQuery1.Locate('UserNo;ModalName',VarArrayOf( ['123',CheckListBox1.items[i]]),[lopartialkey]) then
try
dAdoQuery1.Edit;
dAdoQuery1.FieldByName('ModalAccess').Value:=CheckListBox1.Checked[i];
dAdoQuery1.Post;
except
ShowMessage('权限保存出错,请重新更改!');
end;运行后出常出错,请高手帮忙,TKS!
if dAdoQuery1.Locate('UserNo;ModalName',VarArrayOf( ['123',CheckListBox1.items[i]]),[lopartialkey]) then
try
dAdoQuery1.Edit;
dAdoQuery1.FieldByName('ModalAccess').Value:=CheckListBox1.Checked[i];
dAdoQuery1.Post;
except
ShowMessage('权限保存出错,请重新更改!');
end;运行后出常出错,请高手帮忙,TKS!
如果是不能保存,query有个属性改称true就可以了,属性的名字忘记了,自己找找吧
key column information is insufficient or incrorrect.too many rows were affected by update以上代码针对一条记录不会出错,当到下一条记录时出错!请帮手分析一下,TKS!