[搞定]编译报错**

Jsun2007

[错误]Biz:\SCZYCX\FUNC\SJCSWJ\CSYWGN.FUNC.DIR\CSZCT.Form.pas(37, 4): line 37: expecting "end", found 'Value'
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\CSYWGN.FUNC.DIR\CSZCT.Form.pas(37, 10): line 37: expecting ';', found ':='
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\CSYWGN.FUNC.DIR\CSZCT.Form.pas(37, 13): line 37: expecting "end", found 'DataLocateCombobox1'

atiger

这你代码有问题啊，你检查一下，

Jsun2007

是什么问题呢，我不知道问题在哪里

atiger

把你代码贴出来看看

Jsun2007

unit CSZCT;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data, GGHSK;

type
  TCSZCT = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerDCSDSGLRXX: TInfoBroker;
    ControlBar: TControlBar;
    Panel: TPanel;
    DocViewDCSDSGLRXX_CSLR: TDocView;
    DataSetGZZXSJJ: TSQLDataSet;
    DataSource1: TDataSource;
    DataLocateComboBox1: TDataLocateComboBox;
    procedure BizFormShow(Sender: TObject);
    procedure DataLocateComboBox1CloseUp(Sender: TObject; Accept: Boolean);
    procedure DataLocateComboBox1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}

  end;




implementation

procedure TCSZCT.BizFormShow(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\GZCJ.Param'
   Value := DataLocateCombobox1.DataSource.DataSet.FieldByName(DataLocateCombobox1.KeyFieldName).AsString;
   TGGHSK.SetParamValueString(Context,Value,lBiz);
end;

end.

atiger

TGGHSK 这个是啥，

你要实现啥呢，

Jsun2007

TGGHSK　是我自己编写的公共函数库
实现：用DataLocateCombobox过滤datagrid 的数据集
怎样实现呢

Jsun2007

用DataLocateCombobox过滤datagrid 的数据集，查看自己想要的记录．
怎样实现呢

Jsun2007

用DataLocateCombobox过滤datagrid 的数据集，查看自己想要的记录．
怎样实现呢

atiger

DataLocateCombobox 和 datagrid   连接的是一个数据源吗?
如果不是为啥不通过主从数据集来显示呢?把 DataLocateCombobox 连接的数据源作为主数据集,把datagrid 作为从数据集,当主记录滚动的时候,从数据集会自动来过滤