Cargar Datos de Datatable a un Texbox
Hola,
tengo un problemita, tengo lo siguiente:
dr = dtDireccion.NewRow
dr("iddireccion_consignado") = -1
dr("dirección") = sDireccion.Trim
dr("id_via") = frm.CboVia.SelectedValue
dr("vía") = frm.TxtVia.Text.Trim
dr("numero") = frm.TxtNumero2.Text.Trim
dr("manzana") = frm.TxtManzana.Text.Trim
dr("lote") = frm.TxtLote.Text.Trim
dr("id_nivel") = frm.CboNivel.SelectedValue
dr("nivel") = frm.TxtNivel.Text.Trim
dr("id_zona") = frm.CboZona.SelectedValue
dr("zona") = frm.TxtZona.Text.Trim
dr("id_clasificacion") = frm.CboClasificacion.SelectedValue
dr("clasificación") = frm.TxtClasificacion.Text.Trim
dr("iddepartamento") = frm.CboDepartamento.SelectedValue
dr("idprovincia") = frm.CboProvincia.SelectedValue
dr("iddistrito") = frm.CboDistrito.SelectedValue
dtDireccion.Rows.Add(dr)
End If
Me.CboDireccion.DataSource = dtDireccion
CboDireccion.DisplayMember = "dirección"
CboDireccion.ValueMember = "iddireccion_consignado"
Como se darán cuenta, ahí concatenos todos datos y los paso a datatable
donde después lo agrego a un combobox,
Ahora mi pregunta es que lo pasa es que yo quiero insertar
ese dato concatenado como un solo registro
donde hago lo siguiente
With ObjInDireccionCliente_EN
.Dirección = dtDireccion
Pero me sale un error, donde me dice que no puedo convertir de Datatable a string,
La gran pregunta es como hago para solucionarlo,
gracias.
1 respuesta
Tengo otra Consulta ?
Recientemente estoy programando un opción para insertar, pero lo que pasa es que hice una función que es la siguiente :
Public Function F_InsertarDireccion() As Integer
Dim ObjInDireccionCliente_EN As New Cls_InDireccionCliente_EN
lObj_InDireccionCliente_LN = New Cls_InDireccionCliente_LN
Dim vStr_Mensaje As String = ""
Dim lInt_MsgBoxResult As Integer
Windows.Forms.Cursor.Show()
Windows.Forms.Cursor.Current = Cursors.WaitCursor
lInt_MsgBoxResult = MessageBox.Show("Está seguro de guardar el registro", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If lInt_MsgBoxResult = Windows.Forms.DialogResult.No Then
Return -1
Else
With ObjInDireccionCliente_EN
.IdPersona = iID_Persona
.idZona = id_ZonaCli
.Zona = ZonaCli
.Unidad_Agencia = objGuiaEnvio.iIDUNIDAD_AGENCIA
.Formato = FormatoCli
.IdDepartamento = iDepartamentoCli
.IdProvincia = iProvinciaCli
.IdDistrito = iDistritoCli
End With
End If
vStr_Mensaje = lObj_InDireccionCliente_LN.F_InsDireccionRemitente_LN(ObjInDireccionCliente_EN)
If vStr_Mensaje.Length > 0 Then
MsgBox(vStr_Mensaje, MsgBoxStyle.Critical, "Error")
Return -1
Else
MsgBox("La Direccion se Grabo satisfactoriamente", MsgBoxStyle.Information, "Aviso")
End If
End Function
Pero Ahora esa función, la llamo de otra ventana para ejecutarla
haciendo lo siguiente:
Dim f As New FrmGuia
'Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
' f.F_InsertarDireccion()
'End Sub
Esa función si funciona cuando la utilizo en la misma ventana que se lla FRMGUIA
pero llamo esa función de la venta Frm_Cliente, no funciona, trae valores cero
la pregunta es por que?
gracias por la ayuda
Supongo que las variables que están a la derecha del = en el bloque with son controles del formulario, y cuando lo llamas por segunda vez estos están vacios
