Ayuda Visual Basic formulario

ubuntux · 16 Jun 2011

Amigos llevo un tiempo intentando programar un formulario para utilizar en una pocket PC (arcpad)
el problema que tengo es con los COMBOBOX
ejemplo
tengo tengo 3 combo box cada uno tiene diferentes registros pero cuando selecciono el registro del ultimo combo y lo guardo, se me graba el valor del ultimo combo para todos los anteriores, favor si alguien me puede ayuda.

adjunto código donde va el problema.:mota:

Código:

sub getCodePola()
'RESCATO SEGUN KEYED EL VALOR AL REGISTRO
	select case keyed
		case 1
			objTheControls1("dac").text= objRS.Fields(17).Value
			objTheControls1("alt").text= objRS.Fields(18).Value
			objTheControls1("txtplanta").text= objRS.Fields(19).Value
			objTheControls1("txtplanta").text= objRS.Fields(56).Value
			objTheControls1("txtplanta").text= objRS.Fields(62).Value
		case 2
			objTheControls1("dac").text= objRS.Fields(20).Value
			objTheControls1("alt").text= objRS.Fields(21).Value
			objTheControls1("txtplanta").text= objRS.Fields(22).Value
			objTheControls1("txtplanta").text= objRS.Fields(57).Value
			objTheControls1("txtplanta").text= objRS.Fields(63).Value
		case 3
			objTheControls1("dac").text= objRS.Fields(23).Value
			objTheControls1("alt").text= objRS.Fields(24).Value
			objTheControls1("txtplanta").text= objRS.Fields(25).Value
			objTheControls1("txtplanta").text= objRS.Fields(58).Value
			objTheControls1("txtplanta").text= objRS.Fields(64).Value
		case 4
			objTheControls1("dac").text= objRS.Fields(26).Value
			objTheControls1("alt").text= objRS.Fields(27).Value
			objTheControls1("txtplanta").text= objRS.Fields(28).Value
			objTheControls1("txtplanta").text= objRS.Fields(59).Value
			objTheControls1("txtplanta").text= objRS.Fields(65).Value
		case 5
			objTheControls1("dac").text= objRS.Fields(29).Value
			objTheControls1("alt").text= objRS.Fields(30).Value
			objTheControls1("txtplanta").text= objRS.Fields(31).Value
			objTheControls1("txtplanta").text= objRS.Fields(60).Value
			objTheControls1("txtplanta").text= objRS.Fields(66).Value
		case 6
			objTheControls1("dac").text= objRS.Fields(48).Value
			objTheControls1("alt").text= objRS.Fields(49).Value
			objTheControls1("txtplanta").text= objRS.Fields(50).Value
			objTheControls1("txtplanta").text= objRS.Fields(61).Value
			objTheControls1("txtplanta").text= objRS.Fields(67).Value
	end select

	SetCboTxt objTheControls1("pol1"), objTheControls1("txtplanta").text
	SetCboTxt objTheControls1("Fert1"), objTheControls1("txtplanta").text
	SetCboTxt objTheControls1("Defec1"), objTheControls1("txtplanta").text

end sub



sub upkey()
	
	keyed=keyed+1
	if keyed>6 then keyed=1

	objTheControls1("lblplanta").text =keyed

	getcodepola
end sub

sub downkey()
	
	keyed=keyed-1
	if keyed<1 then keyed=6

	objTheControls1("lblplanta").text =keyed

	getcodepola
end sub


sub just2digit()

	if len(objTheControls1("dac").text)>2 then
		objTheControls1("dac").text=left(objTheControls1("dac").text,2)
	end if


	if len(objTheControls1("alt").text)>2 then
		objTheControls1("alt").text=left(objTheControls1("alt").text,2)
	end if

end sub

Hola!

Ayuda Visual Basic formulario

ubuntux

Bovino maduro