动态改变查找属性定义中的SQL语句问题**

dingdang · 发表于 2008-3-13 14:30:58

出现以下提示：

dingdang · 发表于 2008-3-13 14:31:36

急！！！！

atiger · 发表于 2008-3-13 14:52:59

1、原先的的查询的表和现在的表是来自同一个数据库吗？

2、把代码都帖出来看看

dingdang · 发表于 2008-3-13 15:37:59

不是同一个数据库

dingdang · 发表于 2008-3-13 15:40:37

TSQLDataSet(ydcsbtzc.DataSet).Open;          //先打开数据集
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.Kind:= TLookupKind.lkDataValues;             //查找类型
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.ValidateKind:=TLookupValidateKind.vkMust; //查找值范围
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.DataBase.URL:='Biz:\GDSDAZLGL\YDMISSJK.Database';
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.SQL.Text:='';                         // 查找数据集的SQL 语句
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.KeyField:='v_name';                //关键字段
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.DisplayField:='v_name';             //显示字段
  TSQLDataSet(ydcsbtzc.DataSet).FindBizField('cm').LookupDef.DropDownButton:=True;//是否显示下拉

  //TSQLDataSet(ydcsbtzc.DataSet).close;
  //TSQLDataSet(ydcsbtzc.DataSet).Open;
with TSQLDataSet(ydcsbtzc.DataSet) do
  begin
TSQLDataSet(ydcsbtzc.DataSet).BizFieldByName('cm').LookupDef.SQL.Text:= 'SELECT VILLAGE.SUPPLY_STATION_CODE,VILLAGE.v_name FROM VILLAGE where SUPPLY_STATION_CODE='''+'52''';
//Dialogs.ShowMessage(SUPPLY_STATION_CODE);
open;
  end;
//TSQLDataSet(ydcsbtzc.DataSet).Open;
TSQLDataSet(cm.DataSet).LayoutChange;
  TSQLDataSet(ydcsbtzc.DataSet).LayoutChange;

dingdang · 发表于 2008-3-13 15:43:55

VILLAGE数据表来自另外一个数据库

dingdang · 发表于 2008-3-13 15:52:38

顶一下

atiger · 发表于 2008-3-13 15:54:13

不是一个数据库好像不支持，你搞一个同一个数据库下的某个表试试

dingdang · 发表于 2008-3-13 16:20:09

谢谢啊

atiger · 发表于 2008-3-13 16:22:06

不客气

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