datagridview valor o no resultado

[guillebomtrasmiti]

hola amigos, tengo un problemilla, necesito que si hay datos en un grid, se muestre la información en un textbox y si no hay datos en el grid que se puestre cero, entronces he pensado en hacer esto, pero me suma la cantidad cuando hay datos también me pone cero..alguna ayudita?¿?


Try
Dim total As Decimal = 0

For Each row As DataGridViewRow In DgTotales.Rows

'carga el textbox con el total de lo vendido en el periodo seleccionado
If total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value)) = True Then
Textgrantotal.Text = CStr(total.ToString("#,##0.00€"))
'carga el label con el total de lo vendido en el periodo seleccionado
'LbSumaTotal.Text = CStr(total.ToString("#,##0.00€"))
Else
Textgrantotal.Text = ("#,##0.00€")
End If
Next
Catch
End Try
Textgrantotal.Text = ("#,##0.00€")
End If
Next
Catch
End Try

[Ka0stj]

Yo te recomendaria que primero hagas la validación para verificar si tiene datos tu DataGrid y posteriormente realices el recorrido del mismo. Ahora bien verifica ese If que tienes.

If DataGridView1.Rows.Count > 0 Then
'-- Recorres tu grid y asignas valores a los textbox
Else
'-- Pones a tu textbox 0 (cero)
End If

Saludos!

[guillebomtrasmiti]

gracias ka0stj, me has ayudado mucho, el if que tenía estaba mal, ahora si funciona, un abrazo

[Aquaventus]

siempre que trabajes con grillas y no sabes si va a tener datos,pero que de una u otra forma vas a utilizarlas de forma seguida, has siempre lo que dice Ka0stj "validar", la validacion es muy importante, tenlo siempre en cuenta mi estimado pillinuelo guillebomtrasmiti!.Saludos! .

[Ka0stj]

En efecto, hay que tomar en cuenta siempre las validaciones. Aquaventus tu número de mensajes es igual a la marca del diablo jajajajaja 666.

Saludos!

[Aquaventus]

pero que coño.... :D ya cambio :P hahaha en definitiva no es mi día llevo con dolores de cabeza .

[guillebomtrasmiti]

super aquaaaaaa viveeeee....esto si es una buena noticia, super aqua amigo me alegro de leerte por el foro, por cierto tendrás un codigillo por ahí para hacer funcionar un progressbar mientras se carga del todo una grilla, gracias amigooooo

[Ka0stj]

Checa el Control BackGroundWorker.

https://msmvps.com/blogs/williamryan.../10/23367.aspx

[Aquaventus]

podrias usar el backgroundworker. yo generalmente trabajo con eso :).

[guillebomtrasmiti]

ok alla voy amigos, gracias muchas gracias

[guillebomtrasmiti]

Public Sub copiaintro()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Try
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT reg,Cantidad,Pts,Fecha,NombreFormaPago,IvaVenta,Ba rra,NombTerminal From [Introducción De Ventas] WHERE Barra = @combo1 and NombTerminal = @combo2 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT * FROM [Introducción De Ventas] WHERE Fecha BETWEEN @FI AND @FF Order by Fecha"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

'conectagrid()
conexion.Open()

Dim Lecto1 = comados.ExecuteNonQuery
a = PictureBox1
a.Visible = True
cargacomboMostradores()
cargacomboTerminales()
cargacombos()
a.Visible = False
MessageBox.Show("Se han copiado los datos seleccionados entre fechas " + Fecha1.Value.Date.ToString("dd/MM/yyyy") + " y " + Fecha2.Value.Date.ToString("dd/MM/yyyy"), "")
LbFechaPrimera.Visible = True
cargafechaslabelprimera()
LbFechasultima.Visible = True
cargafechaslabelultima()
Lhasta.Visible = True
conexion.Close()
Catch

End Try


mirar este código que os pongo carga la información según las fechas seleccionadas a la perfección, pero necesito una cosa, que si los datos ya existen en la tabla salte un aviso de que ya existen y no los cargue?¿?, me dais alguna idea??, gracias

[Ka0stj]

Antes de que hagas el INSERT lo que puedes hacer es un SELECT COUNT(*) FROM TUTABLA WHERE CAMPO = @ELCAMPO y si te regresa un valor mayor a cero pues mandas el mensaje, de otra forma realizas la inserción.