السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)
مثال
ليست بوكس
054565656
065265656
065546546
066456546
تنقل الى التكست بوكس
066456546,054565656,065265656,065546546
مع العلم اني استخدم الفجول بيسك 2008
(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
على عدد الارقام
(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
وعليكم السلام ورحمة الله
مداخله بسيطه
ليش ما تستدعي البيانات في الداتا جريد وعند اختيار الصف يتم وضع الرقم في تيكست بوكس1
ثم تضع زر بجانب التيكست بوكس1 وتسميه ( اختيار) عند الضغط على الزر يتم نقل الرقم من تيكست بوكس 1 إلى تيكست بوكس 2
جالس اعمل ع مشروع نفسك مشروعك لكن قاعدة البيانات اكسس 2007
المشروع بالمرفقات يمكن يفيدك بشي
ملاحظة : ضفت عليه الإرسال بالبريد الإلكتروني والمشروع قيد العمل
صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .
(26-08-17, 02:09 PM)حريف برمجة كتب : [ -> ]صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .
صحيح اخي الكريم
هل توجد طريقة اقدر اجلب الارقام من الداته بيس و وضعها في string مفصولة بكوما من دون التعامل مع تكست بوكس
او طرق اخرى
مع الشكر الجزيل