Решение есть... правда не через TableSort, а через Filter: Table1.Filter ("colFirstName LIKE '*hn')
Для проверки я взял пример из поставки Table.sbp
добавил к форме TextBox3
Неприятная сторона события TextBox.KeyPress(key) заключается в том, что событие происходит до того, как вновь введенный символ присоеденится к содержимому бокса... т.е. если TextBox.Text = "ABC", то после введения символа "D", TextBox.Text = "ABC"
Приходится позаботиться о присоединении введенного символа:
Sub TextBox3_KeyPress (key)
key=TextBox3.Text & key
key="Column1 LIKE '*" & key &"*'"
Table1.Filter(key)
End Sub
для возможности выбора нужного столбца в глобал объявил переменную fc, а в процедуре:
Sub Table1_SelectionChanged (ColName, Row)
fc=ColName
End Sub
теперь фильтр можно организовать по любому столбцу... но только по одному:
Sub TextBox3_KeyPress (key)
If Asc(key)<=31 Then
key=TextBox3.Text
Else
key=TextBox3.Text & key
End If
key=fc &" LIKE '*" & key &"*'"
Table1.Filter(key)
End Sub