| kazimates | 24.07.2005 - 19:34:24 |
| dbgrid uzerinde a dan z veya z den a ya sort ederken şu şekilde bir hata alıyorum
current provider does not support the necessary interfaces for sorting or filtering yazdığım kod ise şu şekilde procedure TDisilerForm.DBGrid1TitleClick(Column: TColumn); {$J+} const PreviousColumnIndex : integer = 1; {$J-} begin if (dbgrid1.DataSource.DataSet is TCustomADODataSet) and ( not column.Field.IsBlob) then with TCustomADODataSet(dbgrid1.DataSource.DataSet) do begin try dbgrid1.Columns[PreviousColumnIndex].title.Font.Style := dbgrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold]; except end; Column.title.Font.Style := Column.title.Font.Style + [fsBold]; PreviousColumnIndex := Column.Index; if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then Sort := Column.Field.FieldName + ' DESC' else Sort := Column.Field.FieldName + ' ASC'; end; end; bunu nasıl cozebiliriz acaba? | |
| kazimates | 24.07.2005 - 23:28:36 |
| ADOOlaylarTable ın CursorLocation özelliğini clUseClient olarak değiştirince problem çözülüyor birde sort olatında soru da ki
const PreviousColumnIndex : integer = 1; kısmında -1 olarak veriliyordu o şekilde çalışmıyor ve bunu muhakkak 1 olarak yazmalıyız. bu arada MS SQL Server 2000 ve OLEDB provider kullanılıyor. | |