>
> > I am using latest version of IB objects, on my form there is a
> > IB_Query. I open the query, select the fields. in order to order the
> > data I selected 7 field. I click on create button. it comes. when I
> > click on no tab no problem, it is selecting, however when I click on
> > Field tab it gives an error list index out of bounds (-1), then
> > DrWatson comes (my operating system winnt) and delphi 6 shuts down.
> > in my database I do not have any index.
>
> I cannot see any problem with the create ordering dialog here under
> Delphi5 (still waiting for my Delphi6 upgrade).
>
> You know that you cannot order by calculated fields? Computed are ok
> but not calculated.

yes I am trying with computed field, but they are in a view, not a table

>
> If you setup a new application and try the same thing connecting to
> the employee.gdb - does the same problem occur? If try and give
> step by step exactly what to do to see the error.
>

I tried for employee.gdb, it gives same error for 3 times, then it selects
and delphi does not shut down.

> If you cannot reproduce on the employee database, post the details of
> your query.

here is a part of query

object IB_QUZAKLIK: TIB_Query
DatabaseName = 'C:\Hisse\Pd.gdb'
FieldsAlignment.Strings = (
'HISSE=LEFT'
'MAXFIYATI=RIGHT'
'MINFIYATI=RIGHT'
'ORTLAMAFIYATI=RIGHT'
'SONKAPANIS=RIGHT'
'SERMAYE=RIGHT'
'MAXPD=RIGHT'
'MINPD=RIGHT'
'ORTPD=RIGHT'
'CARIPD=RIGHT'
'MIN_UZAKLIK=RIGHT'
'MAX_UZAKLIK=RIGHT'
'ORT_UZAKLIK=RIGHT')
FieldsDisplayFormat.Strings = (
'MAXFIYATI=##0.00'
'MINFIYATI=##0.00'
'ORTLAMAFIYATI=##0.00'
'SONKAPANIS=##0.00'
'SERMAYE=###,###'
'MAXPD=##0.00'
'MINPD=##0.00'
'ORTPD=##0.00'
'CARIPD=##0.00'
'MIN_UZAKLIK=##0.00'
'MAX_UZAKLIK=##0.00'
'ORT_UZAKLIK=##0.00')
FieldsGridLabel.Strings = (
'HISSE=Hisse Kodu'
'MAXFIYATI=Max Fiyat'
'MINFIYATI=Min Fiyat'
'ORTLAMAFIYATI=Ort, Fiyat'
'SONKAPANIS=Kapanis'
'SERMAYE=Sermaye'
'MAXPD=Max PD'
'MINPD=Min PD'
'ORTPD=Ort. PD'
'CARIPD=Cari PD'
'MIN_UZAKLIK=Min''e Uzaklik'
'MAX_UZAKLIK=Max''a Uzaklik'
'ORT_UZAKLIK=Ort''a Uzaklik')
FieldsDisplayWidth.Strings = (
'ABSAVG=106'
'MAXFIYATI=60'
'MINFIYATI=60'
'ORTLAMAFIYATI=60'
'SONKAPANIS=60'
'MINPD=60'
'MAXPD=60'
'ORTPD=60'
'CARIPD=60'
'MIN_UZAKLIK=70'
'MAX_UZAKLIK=70'
'ORT_UZAKLIK=70')
FieldsReadOnly.Strings = (
'MAXFIYATI=TRUE'
'MINFIYATI=TRUE'
'ORTLAMAFIYATI=TRUE'
'SONKAPANIS=TRUE'
'SERMAYE=TRUE'
'MAXPD=TRUE'
'MINPD=TRUE'
'ORTPD=TRUE'
'CARIPD=TRUE'
'MIN_UZAKLIK=TRUE'
'MAX_UZAKLIK=TRUE'
'ORT_UZAKLIK=TRUE')
FieldsVisible.Strings = (
'DB_KEY=FALSE'
'ABSAVG=FALSE'
'ABSMIN=FALSE'
'ABSMAZ=FALSE'
'ABSMIN2=FALSE'
'ABSMAZ2=FALSE'
'ABSAVG2=FALSE')
IB_Connection = FrmAna.IB_Connect
SQL.Strings = (
'SELECT HISSE'
' , MAXFIYATI'
' , MINFIYATI'
' , ORTLAMAFIYATI'
' , SONKAPANIS'
' , SERMAYE'
' , MAXPD'
' , MINPD'
' , ORTPD'
' , CARIPD'
' , MIN_UZAKLIK'
' , MAX_UZAKLIK'
' , ORT_UZAKLIK'
' , ABSMIN'
' , ABSMAZ'
' , ABSAVG'
' , ABSMIN2'
' , ABSMAZ2'
' , ABSAVG2'
'FROM UZAKLIK')
Active = True
ColorScheme = False
KeyLinksAutoDefine = False
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 10
ReadOnly = True
BufferSynchroFlags = []
FetchWholeRows = True
Left = 184
Top = 232
end

> Geoff Worboys - TeamIBO
> Telesis Computing