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!

解决方案 »

  1.   

    出什么错误贴出来看看啊
    如果是不能保存,query有个属性改称true就可以了,属性的名字忘记了,自己找找吧
      

  2.   

    出错提示为:
    key column information is insufficient or incrorrect.too many rows were affected by update以上代码针对一条记录不会出错,当到下一条记录时出错!请帮手分析一下,TKS!
      

  3.   

    可能SQL中表出错,建议重建该表。