如何动态地创建Lookup字段和其他字段(不用字段编辑器)(50分)

  • 主题发起人 主题发起人 施海鹏
  • 开始时间 开始时间

施海鹏

Unregistered / Unconfirmed
GUEST, unregistred user!
在ADOQuery控件中,动态地创建一张表(数据库中已存在)里的字段,再加上一个Lookup字段,
目的是为了在DBGrid控件中使用,尤其是那个Lookup字段
 
可參考一下,建Lookup字段:
var field1:tstringfield;
begin
field1:=tstringfield.create(nil); //這是字符型字段,別的類型可參考幫助
field1.FieldKind:=fkLookup; //looup字段
field1.FieldName:='xxx'; //字段名
field1.Size:=10; //尺寸
field1.DataSet:=adoquery1; //數據集
field1.KeyFields:='xxxx'; //填相應字段
field1.LookupKeyFields:='xxxx';//填相應字段
field1.LookupResultField:='xxxx';//填相應字段
field1.LookupDataSet:=adoquery2;返回結果數據集
end;
 
在设计时就可以加入这样的固定字段对象啊,很简单的,直接设好上面的这几个属性就行。
 
To: zxb200
试过了,但是,每次给Dataset赋值时,ADOQuery必须是关闭的,重新打开,就出错

To: shangshang
无法固定,我知连接了数据库,但是具体的表,确要SQL语句执行后取得
 
什么錯誤信息?
 
Class EOleException With Message "发生未知错误"
这个错误在调试状态,增加一条记录时, Delphi就会弹出

如果直接运行 Exe 文件,就不会弹出,操作正常

可有时,又。。。唉,反正,就是说不准,
 
后退
顶部