По большому счету, корректной индексации не получится
Однако FoxPro позволяет вставлять в выражение индекса пользовательские функции. Вообще-то, это не есть хорошо, но если очень надо, то попробуй так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
select MyTab
INDEX ON MyFunc(Street, House, Korp, Room) TO SortOrd.idx COMPACT
FUNCTION MyFunc
LPARAMETERS tcStreet, tcHouse, tcKorp, tcRoom
LOCAL lcRetVal
lcRetVal = m.tcStreet
IF VAL(m.tcHouse)= 0
lcRetVal = m.lcRetVal+Space( 10 )+m.tcHouse
ELSE
lcRetVal = m.lcRetVal+SelNumber(m.tcHouse)
ENDIF
IF VAL(m.tcKorp)= 0
lcRetVal = m.lcRetVal+Space( 10 )+m.tcKorp
ELSE
lcRetVal = m.lcRetVal+SelNumber(m.tcKorp)
ENDIF
IF VAL(m.tcRoom)= 0
lcRetVal = m.lcRetVal+Space( 10 )+m.tcRoom
ELSE
lcRetVal = m.lcRetVal+SelNumber(m.tcRoom)
ENDIF
RETURN (m.lcRetVal)
FUNCTION SelNumber
LPARAMETERS tcString
LOCAL lnNumber, lcNoNumber
lnNumber = VAL(m.tcString)
lcNoNumber = SubStr(m.tcString,LEN(TransForm(m.lnNumber)))
RETURN (STR(m.lnNumber)+PADR(m.lcNoNumber,LEN(m.tcString)))
Смысл всего этого безобразия в том, что я выделяю из символьной строки ту часть, которая является числом (я предполагаю, что число идет вначале строки).
Т.е. вместо строки "101а" я формирую строку вида:
STR(101)+PADR("a",10)
И вот эту-то строку и использую в выражении индекса.
