[srca100050]

(25-08-17, 10:57 AM)حريف برمجة كتب :

(25-08-17, 10:00 AM)srca100050 كتب : السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)

مثال
ليست بوكس
054565656
065265656
065546546
066456546

تنقل الى التكست بوكس
066456546,054565656,065265656,065546546

مع العلم اني استخدم الفجول بيسك 2008

وعليكم السلام ،،

كود :

Dim mobilenum As String = ""
       For Each item In ListBox1.Items
           mobilenum += item.ToString & ","
       Next
       TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)

اشكرك اخي الكريم على سرعة الرد

تم تجربة الكود ويعمل سليم  ولكن في برنامجي لاعرف لماذا لم يعمل يظهر في التكست بوكس
System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView

على عدد الارقام