Operaciones con Datagrid

[KenMasters]

Me estoy rompiendo la cabeza buscando formás pero aun no encuentro la mejor forma de trabajar conversiones dentro de un datagrid el problema es el siguiente:

hago un query a una DB en donde visualizo las siguientes columnas ( Empresa, Precio, Presentación ), hasta aqui todo marcha bien. Pero el caso es que tengo que definir de preferencia en otra columna (nueva) el valor minimo por kg. Teniendo en cuenta que existen diferentes presentaciones (kg, arroba,tn,etc..). Ejemplo

Empresa | Precio | Presentacion
empresa1 | 10 | saco20
empresa2 | 1.2 | kg
empresa1 | 1.4 | kg
empresa3 | 150 | tn

Entonces nose como hacer de tal forma que en otra columana salga el precio / kg ( el saco20 es saco de 20 kg). ( Esto para el load, osea el problema )

y la otra función es que en otro boton me diga en un msgbox cual es del minimo costo / kg.

Espero alguien me pueda iluminar.. gracias de antemano

[pkj]

Parece un poco complicado, ya que tendrías que asegurarte de conocer todos los modos de presentación y que formatos puedes encontrar para lo mismo: kg => kg. => kilo

De todos modos intentaré aportar alguna idea:

Como no controlo el datagrid te dejo a ti su manejo.

Código :

Funcion preciokilo (precio As String, presentacion As String) As String
 
    ' si es precio por saco
  If InStr(1, UCase$(presentacion), "SACO") Then
    preciokilo = precio/ Replace(UCase$(presentacion), "SACO", "")
 
    ' si es precio por kilo
  ElseIf InStr(1, UCase$(presentacion), "KG.") Then
    preciokilo = precio
  ElseIf InStr(1, UCase$(presentacion), "KG") Then
    preciokilo = precio
    ' si quiero poder usar "kg" y "kg." tengo que comprobar
    ' si es "kg." con punto antes que mirar si es "kg" sin punto.
 
    ' si es precio por tonelada
  ElseIf InStr(1, UCase$(presentacion), "TN.") Then
    preciokilo = precio / 1000
  ElseIf InStr(1, UCase$(presentacion), "TN") Then
    preciokilo = precio / 1000
 
  Else
    ' si es precio por unidad, caja o lo que sea
    ' puedes ponerlo sin mas
    preciokilo = precio
 
    ' o avisar que no se conoce
    ' el tipo de presentación
    'msgbox "error en presentacion"
    
  End If
 
End Function
 

Es el modo más básico de ver el asunto y con tu ejemplo funcionaría bien.

Suerte.

[seba123neo]

Hola, yo creo que con tener una tabla con todos los modos de presentación y despues que a cada empresa le asignes uno de estos modos,ya estaria solucionado.despues haces las relaciones en las tablas y te trae todo la consulta sin tener que estar calculando nada.

saludos.

[KenMasters]

Muchas gracias por su colaboración, le di una solucion practica, para evitar el trauma con el datagrid entonces al momento de añadir un producto a la DB ahi calcule el costo por kg, y haga las converciones para el caso que sea.

Este es el codigo que usa para saber que presentacion se usara, y en base al precio de la presentación determine el calculo del costo por kg, de esta manera lo guarda en la DB

Código:

Private Function convertir() As String
If (presentacion.Text = "tn") Then
    convertir = Round((precio.Text / 1000), 2)
ElseIf (presentacion.Text = "saco45") Then
    convertir = Round((precio.Text / 45), 2)
ElseIf (presentacion.Text = "kg") Then
    convertir = precio.Text
ElseIf (presentacion.Text = "saco30") Then
    convertir = Round((precio.Text / 30), 2)
ElseIf (presentacion.Text = "saco25") Then
    convertir = Round((precio.Text / 25), 2)
ElseIf (presentacion.Text = "arroba") Then
    convertir = Round((precio.Text / 11.5), 2)
ElseIf (presentacion.Text = "quintal") Then
    convertir = Round((precio.Text / 46), 2)
End If
End Function

Ah, el presentacion.text (es un combo, con ya todas las presentación previamente ingresadas), el Round es una funcio de aproximación Round(valor, decimales).
De esta manera cuando deseo hallar el producto de menor costo por kg, lo hago con un query a la DB.

Muchas gracias a todos por su colaboración.