[srca100050]

(25-08-17, 12:11 PM)حريف برمجة كتب : ارفع مثالك لنعدله لك .

السلام عليكم

المشلكة عندي في حال استدعاء الارقام من الدته بيس وعرضها في listbox ثم تحويلها الى textbox
يتم عرض الارقام في listbox ولاكن عند نقلها الى textbox مع الفاصلة لايعمل مرفق الكود كامل

كود :

Imports System.Data.SqlClient

Public Class TEST_SMS

   Public Sub lod_ContactsSMS()
       Dim data_SMS As New DataSet
       Dim sql_SMS As String
       Try
           data_SMS.Clear()
           sql_SMS = "SELECT [id],[name],[phone],[teamG],[city],[nots],[EditName] From [ContactsSMS]"



           Dim DataAdapter As New SqlDataAdapter(sql_SMS, Conn)


           'DataAdapter.SelectCommand.Parameters.AddWithValue("@teamG", Trim(fusername))


           If Conn.State = ConnectionState.Open Then Conn.Close()
           Conn.Open()
           DataAdapter.Fill(data_SMS, "ContactsSMS")
           Conn.Close()

           'ListBox1.DataSource = data_SMS : ListBox1.DisplayMember = ("ContactsSMS.name")
           ListBox1.DataSource = data_SMS : ListBox1.DisplayMember = ("ContactsSMS.phone")


           'TextBox1.DataBindings.Clear()
           
           'ListBox1.SelectedIndex = ListBox1.FindStringExact(Edit_add_Personnel_data_Employee_Nam)
         
           '///
           'Dim mobilenum As String = ""
           'For Each item In ListBox2.Items
           '    mobilenum += item.ToString & ","
           'Next
           'TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)
           '///

       Catch ex As Exception
           erro.TextBox1.Text = ex.Message
           erro.ShowDialog()
           If Conn.State = ConnectionState.Open Then Conn.Close()
       End Try
   End Sub 'تحميل الارقام

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       lod_ContactsSMS()
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       'Dim mobilenum As String = ""
       'For Each item In ListBox1.Items
       '    mobilenum += item.ToString & ","
       'Next
       'TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)

   End Sub
End Class