01.
Private
Sub
ShowPosition()
02.
03.
04.
CurrentRecord =
Me
.BindingContext(ds,
"population"
).Position + 1
05.
06.
07.
08.
09.
If
CurrentRecord > 0
Then
10.
If
Convert.ToString(dt.Rows(CurrentRecord - 1).Item(
"LOCALID"
)) =
"1"
Then
11.
CheckBox1.Checked =
True
12.
ElseIf
Convert.ToString(dt.Rows(CurrentRecord - 1).Item(
"LOCALID"
)) =
"0"
Then
13.
CheckBox1.Checked =
True
14.
15.
16.
17.
18.
End
If
19.
20.
21.
End
Sub