السلام عليكم ورحمة الله وبركاتة
اعاني من مشكله بطئ جمع عامود في الداتا قريد باستخدام قاعدة بيانات اكسس
استخدم الكود التالي
Dim sum As Double
For i = 0 To DGV.RowCount - 1
sum += DGV.Rows(i).Cells(5).Value
Next
TextBox1.Text = sum
هل من كود اخر او حل للمشكله جزاكم الله خير الجزاء
وعليكم السلام ،،
كود :
TextBox1.Text = (From row In DGV.Rows Select CDbl(row.Cells(5).Value)).Sum()
جعلها الله في موازين حسناتك
معليش سؤال اخير عند ملىء تكست الخاص بالبحث ليكون اكمال تلقائي ببيانات من احد الجداول
ماهو افضل كود
آمين ،، ولك بالمثل واكثر حتى ترضى .
والنتيجة اين تظهر بعد الاستعلام من التكست بوكس :
هل تريد مثلاً عند كتابة (ب) يعرض جميع الأسماء المبتدئة بهذا الحرف في داتاقريدفيو .
أو :
ظهور ليست بالاسماء المبتدئة بهذا الحرف لأختيار منه الاسم المطلوب واكمال كتابته في التكست نفسه .
؟؟؟
(27-12-18, 11:52 PM)حريف برمجة كتب : [ -> ]آمين ،، ولك بالمثل واكثر حتى ترضى .
والنتيجة اين تظهر بعد الاستعلام من التكست بوكس :
هل تريد مثلاً عند كتابة (ب) يعرض جميع الأسماء المبتدئة بهذا الحرف في داتاقريدفيو .
أو :
ظهور ليست بالاسماء المبتدئة بهذا الحرف لأختيار منه الاسم المطلوب واكمال كتابته في التكست نفسه .
؟؟؟
اريد الأسرع فيهم
أنا استخدم طريقة اكمال الحروف وتحديث الداتا قريد عند الضغط على زر البحث فقط
مافي بطىء عند البحث فالبيانات معبئة مسبقاً ولكن عند عملية تعبئة البيانات يكون البطىء الى ان تنتهي
اخي انا استخدم هذا الكود...
وهو لا يكرر القيم ...
غير مكان ال combobox1 بالسم التيكست المرد الاقتراح فية..
واسم الجدول واسم العمود وشكرا..
كود :
Private Sub ComboBox1_ClientSizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.ClientSizeChanged
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New OleDbCommand("SELECT المستلف FROM pasenes", con)
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
ds.Clear()
da.Fill(ds, "list")
Dim col As New AutoCompleteStringCollection
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
col.Add(ds.Tables(0).Rows(i)(0).ToString())
Next
con.Close()
ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
ComboBox1.AutoCompleteCustomSource = col
ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
End Sub