cualquier cosa escribeme e intercambiamos consejos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Argentino Canejo en 16 Octubre 2012, 05:18 AM
Bueno, ya pude hacerlo, busqué un poco más y encontré esto:
http://social.msdn.microsoft.com/Forums/es/vbes/thread/14123c34-c0ff-4344-b8bd-f84b03e2e4c5
Era cuestión de primero cargar el DataTable y luego hacer esto:
Dim row As DataRow = dtTabla.Rows(0) 'Aqui cambio la fila de la cual quiero mostrar, en este caso la primera fila (posicion cero)
TextBox1.Text = CStr(row("nombre"))
Gracias igual, cualquier otra consulta vuelvo a molestar de nuevo, je.
Saludos.
if isnothing(dt.tabla) = false then
Dim row As DataRow = dtTabla.Rows(0) 'Aqui cambio la fila de la cual quiero mostrar, en este caso la primera fila (posicion cero)
TextBox1.Text = CStr(row("nombre"))
else
textbox1.text="Vacio"
end if
Cita de: USLO en 9 Octubre 2012, 11:50 AMahi te respondi
spiritdead tienes un mensaje privado
He visto tu otro post, quizas podamos ayudarnos.
Saludos
Imports System
Imports System.Xml
Imports System.Data
Imports Microsoft.VisualBasic
Imports System.Drawing
Imports System.Windows.Forms
'imports aditionals here
Namespace FDT 'no edit
Class ModuleFDT 'no edit
'global variable here
dim t as new form
dim withevents w as new button
Sub Main() 'no edit
'code initialization here
w.text= "test"
t.text="form de prueba"
t.controls.add(w)
t.show()
End Sub 'no edit
'rest code here,subs,functions
private sub w_click(byval sender as object,byval e as system.eventargs) handles w.click
msgbox("soy un mensaje generado por 1 evento")
end sub
End Class 'no edit
End Namespace 'no edit