V vine Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #1 我动态创建了一个TQuery,用来Select 数据 但我现在想在上面加两个计算字段 要怎么动态添加呵? 谢谢!
康 康凌 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #2 select a,b,a+b as c from tablename
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #3 var a:TStringField; b:TIntegerField; begin a := TStringField.Create(Query1); a.FieldName := 'field1'; a.DataSet := Query1; b := TIntegerField.Create(Query1); b.FieldName := 'field2'; b.DataSet := Query1; end;
var a:TStringField; b:TIntegerField; begin a := TStringField.Create(Query1); a.FieldName := 'field1'; a.DataSet := Query1; b := TIntegerField.Create(Query1); b.FieldName := 'field2'; b.DataSet := Query1; end;
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-01 #5 当然写在TQuery组件Open之前,在Open之后是不能增删字段的.
V vine Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-01 #6 不行呵 会出现 --------------------------- Project1 --------------------------- Query1: Field 'field1' not found. --------------------------- 确定 ---------------------------
不行呵 会出现 --------------------------- Project1 --------------------------- Query1: Field 'field1' not found. --------------------------- 确定 ---------------------------
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-01 #8 Sorry,忘了设定字段类型: var a:TStringField; b:TIntegerField; begin a := TStringField.Create(Query1); a.FieldName := 'field1'; [red]a.FieldKind := fkCalculated;[/red] a.DataSet := Query1; b := TIntegerField.Create(Query1); b.FieldName := 'field2'; [red]b.FieldKind := fkCalculated;[/red] b.DataSet := Query1; query1.Open; end;
Sorry,忘了设定字段类型: var a:TStringField; b:TIntegerField; begin a := TStringField.Create(Query1); a.FieldName := 'field1'; [red]a.FieldKind := fkCalculated;[/red] a.DataSet := Query1; b := TIntegerField.Create(Query1); b.FieldName := 'field2'; [red]b.FieldKind := fkCalculated;[/red] b.DataSet := Query1; query1.Open; end;