Como hacer que en un datagriw aparezca un campo en combobox y a su vez este llame a 3

[lilianamaite01]

Hola esto es lo que he hecho:

imports system.data.sqlclient


public class form2
dim conexion as new sqlconnection("data source=ashley;initial catalog=optica;integrated security=true")



private sub combobox3_selectedindexchanged(sender as object, e as eventargs) handles combobox3.selectedindexchanged
dim cz as string = "pago parcial"
dim cp as string = "pago total"
dim ch as string = "cheque"
if combobox3.text = cz then
label16.enabled = true
label17.enabled = true
textbox7.enabled = true
textbox8.enabled = true

elseif combobox3.text = cp then
label16.enabled = false
label17.enabled = false
textbox7.enabled = false
textbox8.enabled = false

elseif combobox3.text = ch then
label16.enabled = false
label17.enabled = false
textbox7.enabled = false
textbox8.enabled = false
end if
end sub

private sub button1_click(sender as object, e as eventargs) handles button1.click
form1.show()
me.hide()
end sub

private sub toolstriplabel1_click(sender as object, e as eventargs) handles toolstriplabel1.click
form3.show()
me.hide()
end sub

private sub toolstripbutton1_click(sender as object, e as eventargs) handles toolstripbutton1.click
form5.show()
me.hide()
end sub

private sub toolstripbutton2_click(sender as object, e as eventargs) handles toolstripbutton2.click
form4.show()
me.hide()
end sub

private sub toolstripbutton3_click(sender as object, e as eventargs) handles toolstripbutton3.click
form6.show()
me.hide()
end sub

private sub button2_click_1(sender as object, e as eventargs) handles button2.click
combobox1.text = ""
combobox2.text = ""
combobox3.text = ""
textbox1.text = ""
textbox2.text = ""
textbox3.text = ""
textbox12.text = ""
textbox11.text = ""
textbox13.text = ""
textbox7.text = ""
textbox8.text = ""
facturadatagridview.text = ""
end sub


private sub form2_load(sender as object, e as eventargs) handles mybase.load





'todo: Esta línea de código carga datos en la tabla 'opticadataset.factura' puede moverla o quitarla según sea necesario.
Me.facturatableadapter.fill(me.opticadataset.factu ra)




end sub



private sub facturadatagridview_cellvaluechanged(sender as object, e as datagridviewcelleventargs) handles facturadatagridview.cellvaluechanged


if facturadatagridview.columns(e.columnindex).name = "codigoproductodatagridviewcomboboxcolumn" then
'entonces tomas el valor de la celda y haces un "select" a tu bd para traer los demas datos del articulo o producto
'asignas a una variable tu resultado
dim combo as datagridviewcomboboxcell = trycast(facturadatagridview.rows(e.rowindex).cells (e.columnindex), datagridviewcomboboxcell)
'la variable combo tiene el resultado o valor de la celda, que en este caso seria la de tu combobox
'puedes convertir el valor a integer o tipo que creas necesario.
'ejemplo lo convertiremos a integer.
Dim valorinteger as integer = convert.toint32(combo.value)
'ahora haces la consulta a tu bd para jalar la informacion del articulo seleccionado
dim sqlstring as string = "select descripcion_producto, marca, precio_de_venta from producto where descripcion_producto= @descripcion_producto, marca=@marca,precio_de_venta= @precio_de_venta"
dim cmd as new sqlcommand(sqlstring, conexion)
cmd.parameters.addwithvalue("@descripcion_producto , @marca, @precio_de_venta", valorinteger)
dim reader as sqldatareader = cmd.executereader()
'checas si el reader lleva valores y los agregas al gridview
if reader.read() then
facturadatagridview.rows.add(reader("descripcion_p roducto"), reader("marca"), reader("precio_de_venta"))
end if
end if
end sub

end class