01.
Dim
sqlCountGdt
As
String
=
""
02.
sqlCountGdt =
"SELECT COUNT(GdtID) AS CountGdtID FROM Graduate "
03.
Da =
New
SqlDataAdapter(sqlCountGdt, Conn)
04.
Da.Fill(Ds,
"CountGdt"
)
05.
06.
lblMaxGdt.DataBindings.Add(
"Text"
, Ds,
"CountGdt.CountGdtID"
)
07.
08.
09.
If
Ds.Tables(
"CountGdt"
).Rows.Count <> 0
Then
10.
For
I = 1
To
954
11.
With
cboMinGdt
12.
.Items.Add(I)
13.
End
With
14.
Next
I
15.
End
If