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ú
los interesados pueden escribir aca saludos
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
y mas cosas
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
1 ejemplo!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