怎样给Clientdataset增加一个ftlookup类型的TStringField,用代码实现。
解决方案 »
- winsock到winsock2的严重问题
- 使用QuickRep来打印DBGRID
- 在一个stringgrid控件上,当鼠标停留后,我如何知道鼠标停留在哪一个网格上,或者如何发送鼠标的单击消息。
- 菜鸟问题! 关于 TToolBar
- 刚用PowerBuilder做了个房屋租赁管理系统,闲着没事想改造成dephi,给各位散分,以后多指教!
- 手机用户求救!!!!!!!!!!
- ACCESS数据库时间查询的简单问题!
- 前辈来说说,fastreport4 的用法
- 如何得到或者判断字段类型???
- CSDN,你的安全令我伤心
- 再提activeX问题?
- $936F949 EOLeException 多重步骤操作发生错误,请检查每一个状态值
name=ff type=string,fieldtype=lookup,设置下面的三个参数
--------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADS do
begin
with FieldDefs.AddFieldDef do
begin
Name :='test';
DataType :=ftString;
Size := 10;
end;
with FieldDefs.AddFieldDef do
begin
Name :='test1';
DataType :=ftString;
Size := 10;
end;
CreateDataSet;
end;
ADS.FieldByName('test').AsString :='1123132';
ADS.FieldByName('test1').AsString :='dsfdsflk'; sTmp :=ADS.FieldByName('test').AsString;
sTmp :=sTmp + ADS.FieldByName('test1').AsString;
ADS.Close;
Edit1.Text :=sTmp;
end;