大家帮我看看为什么出错
Id:=DM1.ADOXuanChuanQuery.FieldByName('Id').AsInteger; SQLString:='insert into ColumnName(LoginId,ColumnName,Version,Show,Act,OrderId,ParentId,Linked)';
这行提示 Id变量问题 :
SQLString:=SQLString+' values('+Id+',"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ; [Error] XuanChuanu1.pas(89): Incompatible types: 'String' and 'Integer'
Id:=DM1.ADOXuanChuanQuery.FieldByName('Id').AsInteger; SQLString:='insert into ColumnName(LoginId,ColumnName,Version,Show,Act,OrderId,ParentId,Linked)';
这行提示 Id变量问题 :
SQLString:=SQLString+' values('+Id+',"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ; [Error] XuanChuanu1.pas(89): Incompatible types: 'String' and 'Integer'
你定义的是个string...Id:=DM1.ADOXuanChuanQuery.FieldByName('Id').AsString;
+',"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ;
改成
SQLString:=SQLString+' values(Id,"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ;
所以ID要转换,inttostr(id)
SQLString:=SQLString+' values('+Id+',"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ;
应该修改为:
SQLString:=SQLString+' values('+IntToStr(Id)+',"栏目名称",'+Ver+',"1","0",'+i+',"0","0")' ;