Sub TblRas_SelectionChanged (ColName, Row)
If ColName="RasNr" OR ColName="RasNamn" Then
If tblRas.Cell("Chosen",Row)="X" Then
tblRas.Cell("Chosen",Row)=""
LRow=Row
Else
tblRas.Cell("Chosen",Row)="X"
LRow=Row
End If
End If
Msgbox("0:"&lrow)
tblRas.SelectCell("Dummy",Row)
Msgbox("1:"&lrow)
tblRas.Filter("Chosen='X'")
If tblRas.RowCount>0 Then LblInfo.Text="Ras: " & tblRas.Cell("RasNamn",0)
tblRas.Filter("")
Msgbox("2:"&lrow)
tblRas.SelectCell("Dummy",LRow)
End Sub