Sub Globals
Database=AppPath & "\Northwind.sl3"
SortAscending=True
End Sub
Sub App_Start
Form1.Show
lv.New1("Form1",0,0,Form1.Width , Form1.Height)
lv.FullRowSelect=True
lv.SetRowColor(cBeige,cSilver)
LoadSQL
End Sub
Sub LoadSQL
lv.Clear
' ' lv.loadSQL(Database,"Categories", "", True)
lv.loadSQL(Database,"Products", "", True)
End Sub
Sub lv_ColumnClick
SortAscending=Not(SortAscending)
lv.SortColumn(lv.SelectedColumn,SortAscending)
End Sub