这个字段类型怎么了ftString

[fireworld]

sybase数据库，
跟踪字段类型喂ftString
值为“推迟”。
就是InsertRecord时报“字段类型不比配”。
大家帮忙，我在线等候
while not query2.Eof do
begin
aField := TField.Create(nil);
aField.SetFieldType(query2.Fields[0].DataType) ;
aField.FieldName := query2.fields[1].fieldname ;
cds1.Fields.add(afield);
cds1.CreateDataSet ;
cds1.InsertRecord([query2.fieldbyname('JGMC').asstring]);
query2.Next;
end;
query1.Next;

[fireworld]

兄弟帮帮忙啊。我做完了才能下班啊

[fireworld]

高手们，你们干什么去了？

[fireworld]

镇没有人帮我吗？up

[movingboy]

不要用TField，应该用TStringField，TFloatField等。

[fireworld]

但我是要动态的创建啊，那在创建之前必须先针对他的类型创建相应的字段对象吗？

[fireworld]

怎么没有人帮我了，大家都来啊

[cobi]

试一下以下代码，是动态创建clientdataset的
for i := 0 to dm1.QryMain.FieldCount - 1 do
begin
with dm1.CDSTmp.Fielddefs.AddFieldDef do
begin
name := dm1.QryMain.Fields[i].FieldName;
datatype := dm1.QryMain.Fields[i].DataType;
required := dm1.QryMain.Fields[i].required;
end;
end;

而且你的代码犯了逻辑性错误，你应该是创建了clientdataset之后才赋值的，而你现在吧创建的代码也写在其中，会出问题的

aField := TField.Create(nil);
aField.SetFieldType(query2.Fields[0].DataType) ;
aField.FieldName := query2.fields[1].fieldname ;
cds1.Fields.add(afield);
cds1.CreateDataSet ;

while not query2.Eof do
begin
cds1.InsertRecord([query2.fieldbyname('JGMC').asstring]);
cds1.post;
query2.Next;
end;

[fireworld]

呵呵，小新说的对，我也刚发现，真是丢人啊。
我在试你的代码。先谢谢了。有qq吗？交个朋友，我也是帮朋友问的。
等你来qq:16218085