Nuevo Registro Problema combo
Publicado por sherezade (7 intervenciones) el 02/03/2008 14:15:27
Buenos días a todos!!
Les voy a exponer una duda que me ha surgido, por si alguien me pudiese echar una mano.
A la hora de crear un nuevo registro, tengo un combo con Proveedores para agilizar la entrada de datos. Si existe el Proveedor lo selecciono pero al validar, aunque me lo guarda correctamente me cambia el Proveedor seleccionado y me muestra el 1º. En caso de que no exista el Proveedor, permito añadirlo en el momento, y me lo muestra correctamente, pero al validar no me muestra ningún dato, pese a que me lo guarda correctamente.
Private Sub cboProveedor_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProveedor.LostFocus
Dim Prov As String = Me.cboProveedor.Text
Dim dv As DataView = ds.Tables("Proveedor").DefaultView
dv.RowFilter = "Proveedor= '" & me.cboProveedor.text & "'"
dv.Sort = "ID"
If dv.Count = 0 Then
Dim fr As New Proveedor
fr.Show()
fr.txtProveedor.Text = Prov
End If
Para Salvar datos...
bs.EndEdit()
If Not ds.GetChanges() Is Nothing Then
da.Update(ds, "PEDIDO")
ds.AcceptChanges()
Me.statusAviso.Text = "Datos guardados..."
End If
Gracias por adelantado. Saludos!!
Les voy a exponer una duda que me ha surgido, por si alguien me pudiese echar una mano.
A la hora de crear un nuevo registro, tengo un combo con Proveedores para agilizar la entrada de datos. Si existe el Proveedor lo selecciono pero al validar, aunque me lo guarda correctamente me cambia el Proveedor seleccionado y me muestra el 1º. En caso de que no exista el Proveedor, permito añadirlo en el momento, y me lo muestra correctamente, pero al validar no me muestra ningún dato, pese a que me lo guarda correctamente.
Private Sub cboProveedor_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProveedor.LostFocus
Dim Prov As String = Me.cboProveedor.Text
Dim dv As DataView = ds.Tables("Proveedor").DefaultView
dv.RowFilter = "Proveedor= '" & me.cboProveedor.text & "'"
dv.Sort = "ID"
If dv.Count = 0 Then
Dim fr As New Proveedor
fr.Show()
fr.txtProveedor.Text = Prov
End If
Para Salvar datos...
bs.EndEdit()
If Not ds.GetChanges() Is Nothing Then
da.Update(ds, "PEDIDO")
ds.AcceptChanges()
Me.statusAviso.Text = "Datos guardados..."
End If
Gracias por adelantado. Saludos!!
Valora esta pregunta


0