Dim cont As Integer = 0
cont = Me.obtenerNumPersonas()
gridPlantilla.RowCount() = cont
Private Function obtenerNumPersonas()
Dim cont As Integer = 0
Dim p As String = ("'") & My.Forms.CrearPlantGeneral.cboPuesto.Text & ("'")
Dim cmd As New Data.OracleClient.OracleCommand
cmd.CommandText = "SELECT * FROM PERSONA WHERE IDPUESTO=" + p + ""
co = Principal.co
cmd.Connection = co
dr = cmd.ExecuteReader()
Try
While dr.Read()
cont = dr.GetValue(0).ToString
End While
Finally
dr.Close()
End Try
Return cont
End Function