大家帮我看看这段代码怎么错了？1

Question

本帖最后由 rxf2006xz 于 2012-05-04 20:21:03 编辑

Answer 1

http://topic.csdn.net/u/20120504/20/fd5b481d-56d1-401e-be72-d31973e3c74c.html?seed=1147902035&r=78462628#r_78462628

Answer 2

楼主，第一个问题，肯定是StrToInt提示的，建议你用StrToIntDef

Answer 3

fmCOdsRecord.DataSet.Append;
后应该再跟上一句
fmCOdsRecord.DataSet.edit;

Answer 4

fmCOEDCode1.Text := IntToStr(fmCOADOtbMoveUp.FieldByName('隐患编号').AsInteger + 1);
  FOR RhEDLine := 0 TO fmCORhEDDetails7.Lines.Count - 1 Do
应该是这两条的事吧
你要以数据库的 Count 为准
再试试吧~！

Answer 5

fmCODECode1.Text:=   IntToStr(fmCOADtbMoveUp.FieldCount + 1);for RhEDLine:= 0 to fmCOADtbMoveUp.FieldCount -1 do

Answer 6

fmCOdsRecord.DataSet.FieldByName('隐患编号').AsInteger := fmCOADOtbMoveUp.FieldCount + 1;