Cita:
Iniciado por CHOSS 
podria ser:
Código:
For Each i As DataRow In dstper.Tables("tpersonal").Rows
If i.Item(0).ToString & "" <> "" Then
lblLeg.Text = i.Item(0).ToString
Else
lblLeg.Text = "Falta ingresar"
End If
If i.Item(2).ToString & "" <> "" Then
lblNombre.Text = i.Item(2).ToString
Else
lblNombre.Text = "Falta ingresar"
End If
If i.Item(1).ToString & "" <> "" Then
lblApellido.Text = i.Item(1).ToString
Else
lblApellido.Text = "Falta ingresar"
End If
If i.Item(8).ToString & "" <> "" Then
lblBarrio.Text = i.Item(8).ToString
Else
lblBarrio.Text = "Falta ingresar"
End If
If i.Item(9).ToString & "" <> "" Then
lblCalle.Text = i.Item(9).ToString
Else
lblCalle.Text = "Falta ingresar"
End If
If i.Item(10).ToString & "" <> "" Then
lblNro.Text = i.Item(10).ToString
Else
lblNro.Text = "Falta ingresar"
End If
If i.Item(11).ToString & "" <> "" Then
lblTE.Text = i.Item(11).ToString
Else
lblTE.Text = "Falta ingresar"
End If
If i.Item(12).ToString & "" <> "" Then
lblCel.Text = i.Item(12).ToString
Else
lblCel.Text = "Falta ingresar"
End If
If i.Item(13).ToString & "" <> "" Then
lblEmail.Text = i.Item(13).ToString
Else
lblEmail.Text = "Falta ingresar"
End If
If i.Item(14).ToString & "" <> "" Then
lblTitulo.Text = i.Item(14).ToString
Else
lblTitulo.Text = "Falta ingresar"
End If
Next
jeje nose si exista uno mas rapido pero este se me ocurrio
Saludos
muchismas gracias capooo te pasaste
