[أبو فلان]

السلام عليكم ورحمة الله

الكود المرفق لعملية كبيرة حيث يتطلب اجراء اكثر من الف سجل مش قادر على حل المشكلة يعلق BackgroundWorker التصنيف خارج السجل يقول ايش المشكلة يا جماعة

[سعود]

اخي الكريم الـBackgroundWorker فائدتها عمل اجراء معين بمسار مستقل حاول ان تسند لها وظيفة واحدة فقط يعني انظر للجزء المهم واضفه لها.

[أبو فلان]

اخويه سعود شكرا لردك يالغالي انا عندي خمسة عمليات كلها تعبي بالداتا قريد وفق شرط معين وحاطها ببتن واحد لما استعلم مثلا

IF 000000 THEN 1
تحقق نفذ

ELSEIF 00000 THEN 2
تحقق نفذ
ELSEIF 00000 THEN 3
تحقق نفذ
ELSEIF 00000 THEN 4
تحقق نفذ
ELSEIF 00000 THEN 5
تحقق نفذ
END IF

المشكلة فيه قبل الشرط اجراءات وشروط منها عدم ترك الحقل فاضي احيانا يتوقف عندها ولا يعمل اجبرته على العمل يكمل شويه ثم يوقف يقول التصنيف خارج السجل 0_0

[سعود]

اخي الكريم التلميح لايكفي
اعمل مثال بسيط وقم برفعه ليتم التعديل عليه.

[أبو فلان]

اخي سعود المشروع عندي كبير ارفقة الجزء الخاص المطلوب اجراء عليه الباك جرواند

---

شوف هذا جزء من الكود يعبي الداتا قريد

PHP كود :

 Dim strSQL88 As String = "SELECT top " & TOP.Text.Trim & " Tex1,Tex2,Tex3,Tex12,CoJHAT,CoHAY,Colev,CoADDASRH,VAH,DEL,ALDARJH,CoLEVEL  FROM  T_ASRH Where DEL =  '" & "ساري" & "'"
        Dim da88 As New SqlDataAdapter(strSQL88, Sqlconn)
        Dim ds88 As New DataSet
        da88.Fill(ds88, " Select * From T_ASRH  DEL =  '" & "ساري" & "'")
        DataG1.DataSource = ds88.Tables(0)

        Dim Column0 As New System.Windows.Forms.DataGridViewCheckBoxColumn
        With Column0
            .Name = "Column0"
            .Visible = True
            .HeaderText = "التحديد"
            .DisplayIndex = 0
            .TrueValue = True
        End With
        Me.DataG1.Columns.Add(Column0) 


        asrh()

^

PHP كود :

 Public Sub asrh()
        DataG1.Columns(0).HeaderText = "رقم الملف"
        DataG1.Columns(1).HeaderText = "الاسم"
        DataG1.Columns(2).HeaderText = "رقم البطاقة"
        DataG1.Columns(3).HeaderText = "الجوال"
        DataG1.Columns(4).HeaderText = "الجهة"
        DataG1.Columns(5).HeaderText = "الحي"
        DataG1.Columns(6).HeaderText = "الحالة الاجتماعية"
        DataG1.Columns(7).HeaderText = "عدد افراد الاسرة"
        DataG1.Columns(8).HeaderText = "الفئة"
        DataG1.Columns(9).HeaderText = "الحالة"
        DataG1.Columns(10).HeaderText = "الدرجة"
        DataG1.Columns(11).HeaderText = "ملاحظات"
    End Sub 


[أبو فلان]

ما في حل ياجماعة ؟؟

[سعود]

اخي الكريم
ارجو ان ياتي احد ويقدم لك المساعدة
لكن  .. اعمل مثال بسيط جديد  لنفس الفكرة وقم برفعه ...غالبا اجد الحلول من المشروع الجديد وعند المقارنة اعرف الخطا الذي ارتكبته بالمشروع القديم.

[hassan]

ارجو منك رفع مثال لي العمليه المطلوبه ان شاء الله تجد الحل

[الوادي]

يا أبو فلان،

إذا أردت عدم تعليق الكود فضعه داخل Task واستدعيه من خلال Thread

ممكن تستفيد من هذا الموضوع: تعليق الكود
http://vb4arb.com/vb/thread-16132.html

[أبو فلان]

الف شكر اخوي الوادي
الطريقة نجحت لاكن الشريط الجانبي الافقي اختفى ومفعل DataG1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells مقدر اشوف البيانات إلا بفريرة الماوس اعلى وسفل

سؤال هل اقدر استخدم الطريقة بنفس الشاشة على اكثر من DataG لان يجيب بيانات DataG1 و DataG2 ما تطلع عند استخدام الطريقة بنفس sub task

---

سؤال اخر انا ادرج عمود بالداتاقريد

Dim Column0 As New System.Windows.Forms.DataGridViewCheckBoxColumn
With Column0
.Name = "Column0"
.Visible = True
.HeaderText = "التحديد"
.DisplayIndex = 0
.TrueValue = True
End With
Me.DataG1.Columns.Add(Column0)

يقلي التصنيف خارج الصف او الصفيفه وإذا الغيته تمام !!