asignar dato a datarow

[HenrydeSousa]

Aca te dejo un ejemplo de como cargo una fila con variables.

Public Function CrearDatosEquipo(ByVal ID_Equipo As String, _
ByVal Descripcion As String, _
ByVal ID_Usuario As String, _
ByVal Fecha As DateTime, _
ByRef Ds As DatosEquipos) As Boolean
Dim fila As DataRow
Dim resul As Boolean
Dim oReglas As New Reglas.Reglas(DatosEquipos.TABLA_EQUIPOS, NomBd)
'
' Crea una fila nueva
'
Ds = New DatosEquipos
fila = Ds.Tables(DatosEquipos.TABLA_EQUIPOS).NewRow
'
' Cargamos la fila con los datos nuevos
'
With fila
.Item(Ds.CAMPO_CID_EQUIPO) = ID_Equipo
.Item(Ds.CAMPO_CDESCRIPCI) = Descripcion
.Item(Ds.CAMPO_CID_USUARI) = ID_Usuario
.Item(Ds.CAMPO_DFECHA_ACT) = Fecha
End With
'
' agregamos la fila a la tabla
'
Ds.Tables(DatosEquipos.TABLA_EQUIPOS).Rows.Add(fil a)
'
' inserta el equipo en el dataset usando las reglas
'
With New Reglas.Reglas(DatosEquipos.TABLA_EQUIPOS, NomBd)
Try
resul = .Insertar(CType(Ds, DataSet))
If resul = False Then
Pexcep = .DevolverErrorReglas
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Return resul
End Function

Espero te sirva.