Sub Table_Click(Tag As Object)
Dim strTable As String
HideKeyboard
strTable = CStr(Tag)
Dim rs As ResumableSub = Dialog.Show(Activity, Array As Object("Count rows", "Show fields", "Cancel"), _
"Info for the table " & strTable, "", "", _
-1, False, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Null, False, arrS)
Wait For (rs) Complete (strResult As String)
Select Case strResult
Case "Count rows"
CountTableRows(strTable, True)
Case "Show fields"
ShowFields(strTable, True)
Case "Cancel"
Return
End Select
End Sub