*** frmFind.frm Thu Feb 20 19:29:24 2003 --- old_frmFind.frm Fri Feb 21 13:53:07 2003 *************** *** 506,515 **** 'load object type lvObjType.ListItems.Clear lvObjType.ListItems.Add , "AGG", "Aggregate", "aggregate", "aggregate" ! If ctx.dbVer >= 7.3 Then ! lvObjType.ListItems.Add , "CST", "Cast", "cast", "cast" ! lvObjType.ListItems.Add , "DOM", "Domain", "domain", "domain" ! End If lvObjType.ListItems.Add , "FNC", "Function", "function", "function" lvObjType.ListItems.Add , "LNG", "Language", "language", "language" lvObjType.ListItems.Add , "OPR", "Operator", "operator", "operator" --- 506,513 ---- 'load object type lvObjType.ListItems.Clear lvObjType.ListItems.Add , "AGG", "Aggregate", "aggregate", "aggregate" ! lvObjType.ListItems.Add , "CST", "Cast", "cast", "cast" ! lvObjType.ListItems.Add , "DOM", "Domain", "domain", "domain" lvObjType.ListItems.Add , "FNC", "Function", "function", "function" lvObjType.ListItems.Add , "LNG", "Language", "language", "language" lvObjType.ListItems.Add , "OPR", "Operator", "operator", "operator" *************** *** 639,648 **** szNamespace = lvItem.Text If chkAdvOpt.Value = 1 Then If lvObjType.ListItems("AGG").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Aggregates ! If ctx.dbVer >= 7.3 Then ! If lvObjType.ListItems("CST").Checked Then colObj.Add objDatabase.Casts ! If lvObjType.ListItems("DOM").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Domains ! End If If lvObjType.ListItems("FNC").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Functions If lvObjType.ListItems("LNG").Checked Then colObj.Add objDatabase.Languages If lvObjType.ListItems("OPR").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Operators --- 637,644 ---- szNamespace = lvItem.Text If chkAdvOpt.Value = 1 Then If lvObjType.ListItems("AGG").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Aggregates ! If lvObjType.ListItems("CST").Checked Then colObj.Add objDatabase.Casts ! If lvObjType.ListItems("DOM").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Domains If lvObjType.ListItems("FNC").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Functions If lvObjType.ListItems("LNG").Checked Then colObj.Add objDatabase.Languages If lvObjType.ListItems("OPR").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Operators *************** *** 652,661 **** If lvObjType.ListItems("VIE").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Views Else colObj.Add objDatabase.Namespaces(szNamespace).Aggregates ! If ctx.dbVer >= 7.3 Then ! colObj.Add objDatabase.Casts ! colObj.Add objDatabase.Namespaces(szNamespace).Domains ! End If colObj.Add objDatabase.Namespaces(szNamespace).Functions colObj.Add objDatabase.Languages colObj.Add objDatabase.Namespaces(szNamespace).Operators --- 648,655 ---- If lvObjType.ListItems("VIE").Checked Then colObj.Add objDatabase.Namespaces(szNamespace).Views Else colObj.Add objDatabase.Namespaces(szNamespace).Aggregates ! colObj.Add objDatabase.Casts ! colObj.Add objDatabase.Namespaces(szNamespace).Domains colObj.Add objDatabase.Namespaces(szNamespace).Functions colObj.Add objDatabase.Languages colObj.Add objDatabase.Namespaces(szNamespace).Operators