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

crosbychina · 发表于 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;

lisb · 发表于 2007-6-21 11:33:19

http://bbs.justep.com/forum.php? ... 4%B6%AF%CC%EE%B3%E4

crosbychina · 发表于 2007-6-21 11:40:12

我就是按这个写的，可是没有用

crosbychina · 发表于 2007-6-21 11:41:29

算了，我直接在数据集的oninsert事件中，对asstring赋值好了

不过，有时间，帮我看看我在这里的代码为什么无效

lisb · 发表于 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;

crosbychina · 发表于 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，顺序反了，所以就没用了

lisb · 发表于 2007-6-21 15:08:57

是，另外还有注意表达式的写法 Expression.text := #39'ss'#39

crosbychina · 发表于 2007-6-21 15:29:45

#39'ss'#39 ：是不是说取得其实是ss的值，而不是‘ss’
那象我这个例子，DataLocateComboBox1.Text本身已经是一个值了，还需要写成
#39DataLocateComboBox1.Text#39这样的么？

lisb · 发表于 2007-6-21 17:39:35

应该是，要不这样写我这边测试是不行的，你可以试一下。

crosbychina · 发表于 2007-6-22 09:35:04

先结贴吧，多谢

		自动登录	找回密码
密码			立即注册