|
382
|
Programación / Programación Visual Basic / Re: ByRef a Objecto ListBox
|
en: 3 Junio 2015, 17:26 pm
|
No creo ya que realizo la prueba basica y no me funciona, por ejemplo: Do While Not Rs.EOF And Not Rs.BOF 'Lsb.AddItem Rs.Fields(0).Value Lsb.AddItem "1" Rs.MoveNext Loop
A lo que me refiero es que funciona todo correctamente, menos cuando paso or ByRef el objecto ListBox.
|
|
|
384
|
Programación / Programación Visual Basic / ByRef a Objecto ListBox
|
en: 3 Junio 2015, 15:33 pm
|
Tengo este simple código sólo que ahora me la paso más en C# y no recuerdo bien como es en VB. Tengo una función donde realizo una petición a la base de datos en SQL Server, esta ahi excelente. Pero necesito que desde esa misma función lo cargue a un ListBox, tengo lo siguiente: Public Sub LoadHours(txtFecha As String, txtTarjeta As String, ByRef Lsb As ListBox) ' [SNIP] Do While Not Rs.EOF And Not Rs.BOF Lsb.AddItem Rs.Fields(0).Value ' Sí lo muestro en un MsgBox se ve correctamente los datos de la DB Rs.MoveNext Loop ' [SNIP] End Sub
Se supone que al pasarlo como ByRef me tomaría el objecto del formulario e ingresaría los valores de la función dentro del ListBox. Call LoadHours(Me.txtFecha.Text, Me.txtTarjeta.Text, Me.lsbHoras)
El caso es que me dice: No coinciden los tipos.
|
|
|
386
|
Programación / Programación General / Re: ¿Cómo extraer texto desde una palabra a otra?
|
en: 29 Mayo 2015, 23:58 pm
|
No es nada raro, hasta se puede optimzar, pero nah... Public Sub PoC() Dim Row As Integer: Row = 1 Dim DentroDeKW As Boolean: DentroDeKW = False Sheets("Hoja1").Select Do While Range("A" & Row).Value <> Empty If Mid(Range("A" & Row).Value, 1, 2) = "KW" Then DentroDeKW = True End If If Mid(Range("A" & Row + 1).Value, 1, 2) = "LA" Then DentroDeKW = False End If If DentroDeKW = True Then Range("A" & Row).Value = Range("A" & Row).Value & ";" End If Row = Row + 1 Loop End Sub
Resultado: TY - JOUR AN - WOS:000207966700012 DA - Jul-Sep J2 - Acta Bioquim. Clin. Latinoam. KW - CARDIAC TROPONIN-I; ACUTE MYOCARDIAL-INFARCTION; BRAIN NATRIURETIC; PEPTIDE; ARTERY-BYPASS-SURGERY; ST-SEGMENT-ELEVATION; CREATINE-KINASE-MB; DEPARTMENT PATIENT SATISFACTION; ACUTE; PULMONARY-EMBOLISM; CRITICALLY-ILL PATIENTS; STAGE RENAL-DISEASE LA - Spanish M1 - 3 M3 - Article N1 - ISI Document Delivery No.: V17WG Times Cited: 0 Cited Reference Count: 218 Cited References: Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4 Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278 Alpert JS, 2000, J AM COLL CARDIOL, V36, P959 Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9 [Anonymous] TY - JOUR AN - WOS:000207966700012 DA - Jul-Sep J2 - Acta Bioquim. Clin. Latinoam. KW - CARDIAC TROPONIN-I; ACUTE MYOCARDIAL-INFARCTION; BRAIN NATRIURETIC; PEPTIDE; ARTERY-BYPASS-SURGERY; ST-SEGMENT-ELEVATION; CREATINE-KINASE-MB; DEPARTMENT PATIENT SATISFACTION; ACUTE; PULMONARY-EMBOLISM; CRITICALLY-ILL PATIENTS; STAGE RENAL-DISEASE LA - Spanish M1 - 3 M3 - Article N1 - ISI Document Delivery No.: V17WG Times Cited: 0 Cited Reference Count: 218 Cited References: Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4 Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278 Alpert JS, 2000, J AM COLL CARDIOL, V36, P959 Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9 [Anonymous]
|
|
|
389
|
Foros Generales / Foro Libre / Que onda eso del nicequest?
|
en: 28 Mayo 2015, 23:27 pm
|
Quisiera saber si es posible ganar dinero con ello? Necesito comprar algunas cositas... y por si acaso alguien me puede enviar una invitación lo querre hasta el fin del mundo
|
|
|
390
|
Informática / Hardware / Re: teclados de goma
|
en: 28 Mayo 2015, 19:11 pm
|
Normalente los teclados de la laptop son dificiles de manejar (cuando eres programador y ya sabes donde estan las teclas) porque algunos teclados no tienen teclas por ejemplo de < ni > sino que hay que presionar otra tecla por ej Alt, AltGr, etc.
Pero después del tiempo te acostumbras, ahora con respecto al teclado de goma, sólo es bueno por su valor pero de lo contrario es un asco por lo que anteriormente dices. De igual manera las cosas son de costumbre.
En tu caso prefiero usar un teclado normal ajjajaja igual son de valor $ reducido.
|
|
|
|
|
|
|