El data combo esta dividido en DBCombo(0)->Rubro, DBCombo(1)->Grupo, DBCombo(2)->Nombre de producto
El DBcombo(2) tiene como BoundCalumn: in_codigo
Este es el codigo...
Private Sub DBCombo1_GotFocus(Index As Integer)
Select Case Index
Case 1
strSql = "SELECT DISTINCT(in_Codgrp), gr_Codigo, gr_Nombre " & _
"FROM Grupos, MaestrodeInsumos " & _
"WHERE gr_Codigo = in_Codgrp"
If DBCombo1(0).BoundText > "" Then
strSql = strSql & " And in_Codrub = '" & DBCombo1(0).BoundText & "'"
End If
datGrupos.RecordSource = strSql
datGrupos.Refresh
DBCombo1(1).Refresh
Case 2
strSql = "SELECT DISTINCT(in_Codpro), in_Codlot, in_Nombre " & _
"FROM MaestrodeInsumos "
If DBCombo1(0).BoundText > "" Then
strSql = strSql & IIf(InStr(1, strSql, "WHERE") = 0, "WHERE ", "")
strSql = strSql & "in_Codrub = '" & DBCombo1(0).BoundText & "'"
End If
If DBCombo1(1).BoundText > "" Then
strSql = strSql & IIf(InStr(1, strSql, "WHERE") = 0, "WHERE ", " And ")
strSql = strSql & "in_Codgrp = '" & DBCombo1(1).BoundText & "'"
End If
strSql = strSql & " order by in_Nombre"
datMaestrodeInsumos5.RecordSource = strSql
datMaestrodeInsumos5.Refresh
DBCombo1(2).Refresh
End Select
End Sub
Apezar de que hace un Refresh cuando hago un msgbox al dbcombo.textbound me muestra el contenido escrito y no "indice" o como quiera llamarce a la clave de ese dbcombo...
Porque pasa eso???
si yo seleciono
1º el rubro
2º el grupo
3º el producto, pero este ultimo no lo toma
