Mensajes

Hola ya casi lo tengo resuelto.

el problema es en la funcion es en esta instruccion.

Código (vbnet) [Seleccionar] Expandir

total = total + CDbl(dgv.Item(nombre_Columna, a).Value)

Segun yo su equivalente es. Oh no es asi?.

Código (vbnet) [Seleccionar] Expandir

total = total + CDbl(dgv.Rows.Add(nombre_Columna, a).Value)

Saludos.

Hola gracias por responder a los dos.

   

Código (vbnet) [Seleccionar] Expandir

Private Function Sumar(ByVal nombre_Columna As String, ByVal Dgv As DataGridView) As Double
      Dim Total As Double = 0
      ' recorrer las filas y obtener los items de la columna indicada en "nombre_Columna"  
      Try
         For i As Integer = 0 To Dgv.RowCount - 1
            Total = Total + CDbl(Dgv.Item(nombre_Columna, i).Value)
         Next
      Catch ex As Exception
         MsgBox(ex.Message.ToString)
      End Try
      Return Total
   End Function

No se cual es el equivalente DataGridView en Telerik

Ya que si uso el RadGriewView me muestra un error en la parte del item

Código (vbnet) [Seleccionar] Expandir

Total = Total + CDbl(Dgv.Item(nombre_Columna, i).Value)

Luego en el evento CellValueChanged

Código (vbnet) [Seleccionar] Expandir


txtSubTotal.Text = FormatCurrency(Sumar("Monto", gvFactura), 2).ToString 'Me muestra un error por que gvFactura no es parte del DataGridView

luego en un evento de remover

Código (vbnet) [Seleccionar] Expandir

' La culmna a sumar se llama Monto
  txtSubTotal.Text = FormatCurrency(Sumar("Monto", gvFactura), 2).ToString()  

Veo que el unico evento que esta es el Control Removed

No esta  ItemRemoving ni ItemRemoved.

Saludos.

Hola como están.
Mi consulta es la siguiente, Como puedo calcular datos en mi griewview Control(Telerik) y mostrarlos en un textbox el problema con que me topo es que estoy haciendo un form de facturación (imagen).

Cuando agrego el producto el subtotal me la va cargando según el precio del articulo el problema viene cuando borro un producto del griewview como hago para que el subtotal baje, según esa columna del griewview.



Esto se puede, no comparto ningún código porque no tengo nada aun, no se me ocurre como manipular una columna del griewview todavía.

Saludos.

[Elektro]

Hola como estas.

Si a tu profesora no le gusto que el usuario aprete el boton para buscar puedes usar el evento KeyDown para buscar el codigo y dejar el foco ahi para que siga buscando.

Aca te dejo un ejemplo cuando presione Enter dentro de textbox busque tu registro, espero me entiendas es lo unico que se me ocurre.

Código (vbnet) [Seleccionar] Expandir

Private Sub txtBuscarEmpleado_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBuscarEmpleado.KeyDown
       If (e.KeyCode = Keys.Enter) Then
           buscarCodigoEmpleado()
           txtBuscarEmpleado.focus()
End If




Veo que Elektro te dio una solucion mas facil puedes cargar tu registros al combox desde la BD y luego el auto completado como el indica.

Saludos

Hola gracias por responder

Es correcto solo que estaba confundiendo

Esta instruccion

Código (vbnet) [Seleccionar] Expandir

.FileName = "Image"

Con el de este FileName

Código (vbnet) [Seleccionar] Expandir

Me.ptbFotoPersonal.Image.Save(sfd.FileName, Imaging.ImageFormat.Jpeg)

Gracias he estado probando veo que por medio del evento FileOk se hace mas practico para mis fines.

Gracias y saludos.

Hola ya resolví el problema.

Obtuve la ruta de la siguiente manera.
También se puede de las formas que puse anteriormente el problema estaba en donde ponía la instrucción.

Código (vbnet) [Seleccionar] Expandir

ruta = saveFileDialog1.FileName

La instrucción debe ponerse después de que se presiona el botón de save y así guarda la ruta del saveDialog

Código (vbnet) [Seleccionar] Expandir

Case 1
Me.ptbFotoPersonal.Image.Save(fs, _
System.Drawing.Imaging.ImageFormat.Jpeg)
'Si captura la ruta completa del archivo
ruta = saveFileDialog1.FileName

No me guardaba la imagen porque la ponía después del FileName

Código (vbnet) [Seleccionar] Expandir


'Malo no captura la ruta si el nombre que se le da al archivo
saveFileDialog1.FileName = txtPrimerNombre.Text & " " & txtPrimerApellido.Text
ruta = saveFileDialog1.FileName


Saludos.

Hola como están tengo la siguiente duda y es como obtengo la ruta completa donde guardo un archivo con un saveDialog

He estado probando lo siguiente pero solo me obtiene el nombre del archivo y no la ruta.

Código (vbnet) [Seleccionar] Expandir

'Obtengo el nombre de la foto
ruta = Path.GetFileName(saveFileDialog1.FileName)

'Igual obtengo nombre
ruta = IO.Path.GetFileName(saveFileDialog1.FileName)

MsgBox(ruta)

He notado que con el OpenDialog cuando uso el FileName si me trae toda la ruta.

Lo siquiente como obtengo la ruta completa de la imagen en un pictureBox

Código (vbnet) [Seleccionar] Expandir

ptbFotoPersonal.ImageLocation

Ya que necesito esa ruta para mandarla a un método por cualquier forma que se pueda ya sea por medio de saveDialog o por el pictureBox.

Saludos y gracias.

Hola

Puede que ya hayas leido esto, pero puede que no, te dejo algunos links que puede que te sirvan.

https://msdn.microsoft.com/en-us/library/dn771552.aspx

https://visualstudiogallery.msdn.microsoft.com/d486edc5-aae3-4ad9-84c1-578efc0a32ed

El tema es muy parecido a lo que preguntas tú, puedes echarle un ojo si te interesa.
http://www.vbforums.com/showthread.php?714407-VB-net-for-Android

http://www.mono-project.com/

Saludos.

[Eleкtro]

Funciono también solo que primero hay que llenar el listview y después ejecutar el evento, si no muestra un error algo como esto Index was out of range.

Pero sirvió por medio de llaves.

Gracias sé que no eres un Guru de Telerik. (Aunque no lo creo)

Pero cualquier idea de cómo tratar de hacerlo se agradece enormemente

Muchas gracias de nuevo Eleкtro

Disculpa las molestias.

Saludos.

PD: uso un DateTable para no traer el nombre de las columnas de la BD pero funciona tambien por medio de llaves. : )))

Hola de hecho probé el findKey de ese método

Parecido a lo que a lo del otro post como mencionas

Pero en lo que me fije que cuando se agrega el item al listview se le agrega la llave, y en este caso muestro los datos en el listview con un Query a la BD no sé si aun así se le puede asignar una llave a los item del listview eso me confundió un poco, pero claro que lo probé por que hace la búsqueda y compara si existe o no, así que es casi lo mismo que mencionas.

Que seria esta parte:

Donde le agregas la llave al campo articulo.

Código (vbnet) [Seleccionar] Expandir

ElseIf Me.lvListaPedidos.FindItemByKey(key:=articulo.ToLower, searchVisibleItems:=True) IsNot Nothing Then
           RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)

Else
           Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad, total}) With
       {.Key = articulo.ToLower}
           Me.lvListaPedidos.Items.Add(lvItem)
End If


En el caso de la busqueda deberia de asignar una llave por cada item a la columna no??
Oh antes de cargar los datos le asigno la llave?

Corrigeme si estoy mal en algo por favor.

Saludos.