منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

اخي الكريم الـ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 

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

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

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

يا أبو فلان،

إذا أردت عدم تعليق الكود فضعه داخل 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)

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

الصفحات : 1 2