数据访问时，异常处理执行有误，请指教！！！！！！

Question

try
    if Locate('类型名',ComboBox1.Text,[loCaseInsensitive]) then
      data.DataModule1.ShangPin.FieldByName('商品类型号').AsString:=FieldByName('商品类型号').AsString;
  except
    messagedlg('数据库打开异常！',mtError,[mbOk],0);
    exit;
  end;
类似的，当它执行到data.datamodule1.shangpin.fieldbyname('')……后，和以上错误一样，我知道，是数据表不在edit或者insert状态可是它应该执行except语句啊，请明示！谢谢！

Answer 1

继续执行下去应该会触发异常，执行except语句块，你可以试试将工程编译成可执行文件，然后在IDE外的环境中执行。
将代码改成以下的形式可能会更好：
try
  if ((data.DataModule1.ShangPin.State=dsInsert) or (data.DataMOdule.ShangPin.State=dsEdit)) then 
  data.DataModule1.ShangPin.Post;
except
    messagedlg('数据库不处于添加模式，请按“下一个”按扭，进行添加！',mtWarning,[mbok],0);
    raise;
    exit;
  end;