Buen dia Estimados, tengo 2 formularios muy sencillos, en 1 tengo un combobox con 1 boton y en el otro un dgv que se llena mediante una consulta sql. Mi problema es que en el form que tengo el combobox selecciono el id de la sucursal y ese ahi lo tengo que pasar hacia el otro formulario para meterlo adentro de la consulta sql y que solo me arroje resultados de la sucursal que fue seleccionada. Les adjunto los codigos con los que estoy trabajando ya que el valor esta pasando null hacia el otro form. Espero que me puedan ayudar.
Form con boton y combobox
Imports DataAccess
Imports System.Data.SqlClient
Public Class SeleccionBase
Public Property IdSuc As Integer
Private Sub SeleccionBase_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbCampana.DropDownStyle = ComboBoxStyle.DropDownList
Try
Dim msCadenaSQL As String = "Data Source=MASTER;Initial Catalog=PRINCIPAL;Integrated Security=True"
' Configuramos una conexión con el origen de datos.
Using loConexion As New SqlConnection(msCadenaSQL)
' crear adaptadores
Dim lDataAdapter As New SqlDataAdapter("select * from sucursales", loConexion)
Dim lDataTable As New DataTable
lDataAdapter.Fill(lDataTable)
'Cargar el combo
With cbCampana
.DisplayMember = "NOMBRE_SUCURSAL"
.ValueMember = "ID_SUC"
.DataSource = lDataTable
.SelectedIndex = -1
End With
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using loForm As New prueba
loForm.Padre = Me
loForm.ShowDialog()
End Using
cbCampana.SelectedValue = IdSuc
End Sub
End Class
Form con Datagrid
Imports System.Data.SqlClient
Public Class prueba
Public Property Padre As SeleccionBase
Private Sub prueba_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim msCadenaSQL As String = "Data Source=BARNEY;Initial Catalog=CT;Integrated Security=True"
' Configuramos una conexión con el origen de datos.
Using loConexion As New SqlConnection(msCadenaSQL)
' crear adaptadores
Dim lDataAdapter As New SqlDataAdapter("SELECT * FROM CTES WHERE ID_SUC=" + Padre.IdUsuario.ToString + "", loConexion)
Dim lDataTable As New DataTable
lDataAdapter.Fill(lDataTable)
Me.DataGridView1.DataSource = lDataTable
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
Bueno desde ya les agradezco mucho la ayuda