--- In IBObjects@yahoogroups.com, "Jason Wharton" <jwharton@i...>
wrote:

> What is OrderingLinks set to?

here is my setup

object items: TIB_Query
CalculatedFields.Strings = (
'TOTAL=NUMERIC(15,2)')
DatabaseName = 'D:\Works\KSK\database\ACCTDB.GDB'
FieldsDisplayFormat.Strings = (
'"Left"=###,###,##0.00'
'"Use"=###,###,##0.00'
'"Adjustment"=###,###,##0.00'
'"Conversion"=###,###,##0.00'
'"Conversion2"=###,###,##0.00'
'"Base"=###,###,##0.00'
'TOTAL=###,###,##0.00')
FieldsDisplayLabel.Strings = (
'"Unit2"=Inventory Unit'
'"Unit3"=Ingredients Unit'
'TOTAL=Total')
FieldsDisplayWidth.Strings = (
'"Left"=80'
'"Use"=80'
'"Adjustment"=80'
'"Unit1"=60'
'"Unit2"=60'
'"Type"=80'
'"Conversion"=60'
'ID=40'
'"Unit3"=60'
'"Conversion2"=60'
'"Base"=60'
'TOTAL=80')
FieldsIndex.Strings = (
'ID'
'"Name"'
'"Unit1"'
'"Unit2"'
'"Conversion"'
'"Conversion2"'
'"Unit3"'
'"Base"'
'"Left"'
'"Use"'
'"Adjustment"'
'TOTAL'
'"Type"'
'"Minimum"'
'"AveragePurchase"'
'"LastPurchase"')
FieldsVisible.Strings = (
'"Minimum"=FALSE'
'"AveragePurchase"=FALSE'
'"LastPurchase"=FALSE'
'"Unit1"=FALSE'
'"Conversion"=FALSE')
IB_Connection = Form_main.IB_Connection1
SQL.Strings = (
'select *'
'from "items" where "Type" in ('#39'RAW'#39', '#39'ING'#39')'
'')
OnCalculateField = itemsCalculateField
ColorScheme = False
DeleteSQL.Strings = (
'DELETE FROM "items"'
'WHERE'
' ID = :OLD_ID')
EditSQL.Strings = (
'UPDATE "items" SET'
' ID = :ID, /*PK*/'
' "Name" = :"Name",'
' "Unit1" = :"Unit1",'
' "Unit2" = :"Unit2",'
' "Conversion" = :"Conversion",'
' "Type" = :"Type",'
' "Left" = :"Left",'
' "Use" = :"Use",'
' "Adjustment" = :"Adjustment",'
' "Minimum" = :"Minimum",'
' "AveragePurchase" = :"AveragePurchase",'
' "LastPurchase" = :"LastPurchase"'
'WHERE'
' ID = :OLD_ID')
InsertSQL.Strings = (
'INSERT INTO "items"('
' ID, /*PK*/'
' "Name",'
' "Unit1",'
' "Unit2",'
' "Conversion",'
' "Type",'
' "Left",'
' "Use",'
' "Adjustment",'
' "Minimum",'
' "AveragePurchase",'
' "LastPurchase")'
'VALUES ('
' :ID,'
' :"Name",'
' :"Unit1",'
' :"Unit2",'
' :"Conversion",'
' :"Type",'
' :"Left",'
' :"Use",'
' :"Adjustment",'
' :"Minimum",'
' :"AveragePurchase",'
' :"LastPurchase")')
KeyLinks.Strings = (
'ID')
KeyLinksAutoDefine = False
MasterSearchFlags = [msfOpenMasterOnOpen,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'"Name"="Name";"Name" DESC')
OrderingLinks.Strings = (
'"Name"=ITEM=1;')
SearchingLinks.Strings = (
'"Name"="Name"')
BufferSynchroFlags = []
FetchWholeRows = True
Left = 700
Top = 16
end