【搞定】关于过滤的问题**

wulei_doudou_1

关于过滤的问题,看看该怎么办啊

wulei_doudou_1

例如在选择了大类编号 8 后,如何能将专业编号只显示80 81 等而不显示90 等

wulei_doudou_1

我的那些数据80 81等全是在枚举查找里放的,不能用数据库的模糊查询,怎么弄啊? 急

wulei_doudou_1

procedure TGCWJLRST.DataEditDLBHChange(Sender: TObject);
var
i :  integer;
lGL: string;
begin
  lGL := DataEditDLBH.Text;
  if lGL <> '' then
    for i := 0 to 9 do
      begin
       DataSetBrokerGCWJLRSJJ.DataSet.Filtered := False;
       DataSetBrokerGCWJLRSJJ.DataSet.Filter := 'ZYBH ='''+ lGL +'''';
       DataSetBrokerGCWJLRSJJ.DataSet.Filtered := True;
      end;
我想让DataSetBrokerGCWJLRSJJ.DataSet.Filter := 'ZYBH ='''+ lGL +'''这句能实现模糊查询，应该怎么写？

wulei_doudou_1

var
i :  integer;
lGL: string;
begin
  lGL := DataEditDLBH.Text;
  if lGL <> '' then
      begin
       DataSetBrokerGCWJLRSJJ.DataSet.Filtered := False;
       DataSetBrokerGCWJLRSJJ.DataSet.Filter := 'ZYBH like'+ lGL +'%''';
       DataSetBrokerGCWJLRSJJ.DataSet.Filtered := True;
      end;
现在代码我写成这样了，编译是没问题的，但是一运行，想实现这个功能时就出错。

lisb

用枚举查找好像不好实现，你还是用数据查找吧。

wulei_doudou_1

好的，我们也已经开始那么做了