起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 288|回复: 9

【搞定】[请求]代码如何动态定义填充属性?**

[复制链接]
发表于 2007-6-21 11:05:59 | 显示全部楼层 |阅读模式
我的这段代码怎么不起作用啊
procedure TItemForm.Button1Click(Sender: TObject);
var
    sqldataset1:Tsqldataset;
begin
    DataSetBroker2.DataSet.Close;
    sqldataset1:=Tsqldataset(DataSetBroker2.DataSet);
    sqldataset1.BizFieldByName('lb').AutoFillDef.Expression.Text := DataLocateComboBox1.Text;
    sqldataset1.BizFieldByName('lb').AutoFillDef.Enabled := true;
    // sqldataset1.BizFieldByName('lb').AutoFillDef.Options := [0];
   // datasetbroker2.DataSet.FieldByName('lb')
    DataSetBroker2.DataSet.Open;
end;
回复

使用道具 举报

发表于 2007-6-21 11:33:19 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-21 11:40:12 | 显示全部楼层
我就是按这个写的,可是没有用
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-21 11:41:29 | 显示全部楼层
算了,我直接在数据集的oninsert事件中,对asstring赋值好了

不过,有时间,帮我看看我在这里的代码为什么无效
回复 支持 反对

使用道具 举报

发表于 2007-6-21 14:33:21 | 显示全部楼层
这样写
constructor TMainForm.Create(Acontext:Tcontext);
begin
  inherited;
  Tsqldataset(DataSetBroker1.DataSet).Open;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Enabled := true;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Expression.text := #39'ss'#39;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Options := [0];
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-21 15:00:27 | 显示全部楼层
最初由 lisb 发布
[B]这样写
constructor TMainForm.Create(Acontext:Tcontext);
begin
  inherited;
  Tsqldataset(DataSetBroker1.DataSet).Open;
  Tsqldataset(DataSetBroker1.DataSet..

以下省略...... [/B]


意思是不是说:对sqldataset设置自动填充必须在open之后,我的代码无效是不是因为先设置了填充属性,然后再open,顺序反了,所以就没用了
回复 支持 反对

使用道具 举报

发表于 2007-6-21 15:08:57 | 显示全部楼层
是,另外还有注意表达式的写法 Expression.text := #39'ss'#39
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-21 15:29:45 | 显示全部楼层
#39'ss'#39 :是不是说 取得其实是ss的值,而不是‘ss’
那象我这个例子,DataLocateComboBox1.Text本身已经是一个值了,还需要写成
#39DataLocateComboBox1.Text#39这样的么?
回复 支持 反对

使用道具 举报

发表于 2007-6-21 17:39:35 | 显示全部楼层
应该是,要不这样写我这边测试是不行的,你可以试一下。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-22 09:35:04 | 显示全部楼层
先结贴吧,多谢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-11 21:42 , Processed in 0.037579 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表