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语句啊,请明示!谢谢!
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语句啊,请明示!谢谢!
将代码改成以下的形式可能会更好:
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;