HugoSoft
2009-04-01 00:07:36 UTC
Tengo un CheckedListBox que lleno con los datos de una tabla y solo
mando a llamar 1 campo:
Dim Ds1 As New DataSet
Dim Da1 As New SqlClient.SqlDataAdapter("select * from tabla order by
nombre ASC", Cnn)
Da1.Fill(Ds1, "tabla")
CheckedListBox1.DataSource = Ds1.Tables("tabla")
CheckedListBox1.DisplayMember = "nombre"
Tengo un ListBox donde al dar clic sobre la casilla de CheckedListBox
me aparecen solo los sedleccionado en el listbox:
Private Sub CheckedListBox1_ItemCheck(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Handles CheckedListBox1.ItemCheck
If e.NewValue = CheckState.Checked Then
Me.ListBox1.Items.Add(Me.CheckedListBox1.Text)
Else
Me.ListBox1.Items.Remove(Me.CheckedListBox1.Text)
End If
End Sub
hasta aqui no hay problema.
Cuando trato de salvar el registro no encuentro la manera de que me
forme una cadena con los nombre seleccionados y me los mande a un
campos Text como: nombre1, nombre2, nombre3, etc.
Cuando grabo pongo el siguinete còdigo pero solo me pone el nùmero de
reglòn:
Dim i As Integer
For i = 0 To CheckedListBox1.Items.Count - 1
If (CheckedListBox1.GetItemChecked(i)) Then
MessageBox.Show(CheckedListBox1.GetItemText(i))
End If
Next
Alguna idea, otra cosas en la tabla de sql server 2005 como debo de
declarar el type data de los campos para que me guarde el
CheckedListBox y el ListBox? ya intente como nvarchar(500) pero solo
me guarda el nombre de la ultima casilla del CheckedListBox que
seleccione.
Gracias
mando a llamar 1 campo:
Dim Ds1 As New DataSet
Dim Da1 As New SqlClient.SqlDataAdapter("select * from tabla order by
nombre ASC", Cnn)
Da1.Fill(Ds1, "tabla")
CheckedListBox1.DataSource = Ds1.Tables("tabla")
CheckedListBox1.DisplayMember = "nombre"
Tengo un ListBox donde al dar clic sobre la casilla de CheckedListBox
me aparecen solo los sedleccionado en el listbox:
Private Sub CheckedListBox1_ItemCheck(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Handles CheckedListBox1.ItemCheck
If e.NewValue = CheckState.Checked Then
Me.ListBox1.Items.Add(Me.CheckedListBox1.Text)
Else
Me.ListBox1.Items.Remove(Me.CheckedListBox1.Text)
End If
End Sub
hasta aqui no hay problema.
Cuando trato de salvar el registro no encuentro la manera de que me
forme una cadena con los nombre seleccionados y me los mande a un
campos Text como: nombre1, nombre2, nombre3, etc.
Cuando grabo pongo el siguinete còdigo pero solo me pone el nùmero de
reglòn:
Dim i As Integer
For i = 0 To CheckedListBox1.Items.Count - 1
If (CheckedListBox1.GetItemChecked(i)) Then
MessageBox.Show(CheckedListBox1.GetItemText(i))
End If
Next
Alguna idea, otra cosas en la tabla de sql server 2005 como debo de
declarar el type data de los campos para que me guarde el
CheckedListBox y el ListBox? ya intente como nvarchar(500) pero solo
me guarda el nombre de la ultima casilla del CheckedListBox que
seleccione.
Gracias