【结贴】DataGrid 多选记录筛选问题？***

huangyue

想要根据多选选中的记录进行过虑筛选，怎么取不到数据的？？如图
我选择了3条记录，，可以是memo里面怎么老是只有一条记录？？
请帮忙看下那里处问题了？？
代码如下：
myform := TDJLSX.Create(self.Context);
         try
            if DataGrid1.SelectedCount > 0 then
                  with DataGrid1.DataSource.DataSet do
                       for i := 0 to DataGrid1.SelectedCount - 1 do
                       begin
                           Bookmark := DataGrid1.SelectedRows;
                            for j := 0 to FieldCount - 1 do
                             begin
                                 if (j > 0) then s := s + ', ';
                                 s := s + Fields[j].AsString;
                             end;
                       Bookmark := DataGrid1.SelectedRows.ToString; //标签记录
                       GotoBookmark(GetBookmark);
                       s := DataGrid1.FocusedField.AsString;
                       end;
                       myform.Label1.Caption := '按'+DataGrid1.FocusedField.DisplayName+'进行筛选:';
                       myform.Memo1.Lines.Text := DataGrid1.FocusedField.AsString;
                       if myform.ShowModal = business.Forms.Controls.mrOk then
                       begin
                           DataSetSFKSJJ.SQLFilter := ' '+DataGrid1.FocusedField.FieldName+' = '''+myform.Memo1.Lines.Text+'''';
                           DataSetSFKSJJ.SQLFiltered := true;
                         end;
                              finally
                                 myform.Free;
                        end;
                   end;

atiger

你在 Bookmark := DataGrid1.SelectedRows.ToString; //标签记录 前，Show一下 S 这个变量看看，结果是啥。
你跟着看看，怎么在后面又给S赋值  DataGrid1.FocusedField.AsString;，不知道你想实现啥东东，怎么又把S这个变量重新复制，你的逻辑应该有问题吧，跟着代码看看吧。

huangyue

最初由 atiger 发布
[B]你在 Bookmark := DataGrid1.SelectedRows.ToString; //标签记录 前，Show一下 S 这个变量看看，结果是啥。
你跟着看看，怎么在后面又给S赋值  DataGrid1.FocusedField..

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

Show了下。。记录是取到了（如图）。。可是ADD不进memo里面。。老是显示整条记录？
我就是想实现：我多选选中某些列的值然后Add进memo里面进行过虑筛选？明白？

zfang

老是显示整条记录？
请楼主看看你自己写的代码吧
studio单步调试跟踪一下相关的值。

huangyue

结