[سؤال] امل المساعده في تقسيم البيانات على مجموعات

[سؤال] امل المساعده في تقسيم البيانات على مجموعات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] امل المساعده في تقسيم البيانات على مجموعات (/showthread.php?tid=1269)

الصفحات: 1 2

RE: امل المساعده في تقسيم البيانات على مجموعات - asto - 19-12-13

اضف اداة data1

RE: امل المساعده في تقسيم البيانات على مجموعات - allayl - 19-12-13

شكرآ اخي عند الظغط على زر يظهر على الشكل الاتي

امل المساعده

RE: امل المساعده في تقسيم البيانات على مجموعات - asto - 19-12-13

هذا كود افضل بعد اضافة 2 تكست بوكس : تكست بوكس1 و تكست بوكس2

كود :

Private Sub Command1_Click()

 Dim a As Integer

 On Error Resume Next

Data1.Recordset.OpenRecordset

Data1.Recordset.MoveLast

Text2.Text = Data1.Recordset.RecordCount

a = Text2.Text / 4

 For ic = 0 To 3

 i = ic + 1

b = (i * a) - a

c = (i * a) - 1

If i = 4 Then c = Data1.Recordset.RecordCount - 1

For ii = b To c

If i > 1 Then

xx = a * (i - 1)

x = ii - xx

Else

x = ii

End If

Data1.Recordset.OpenRecordset

Data1.Recordset.MoveFirst

Data1.Recordset.Move (ii)

Text1.Text = Data1.Recordset.Fields!Name

List1(ic).AddItem (x)

List1(ic).List(x) = Text1.Text

Next ii

Next ic

End Sub

RE: امل المساعده في تقسيم البيانات على مجموعات - VB_Coder - 19-12-13

السلام عليكم

- جزاك الله كل خير أخي asto على حماسك وجهدك في المساعدة , إسمح لي بعد إذنك أن أقدم مشاركتي في هذا الموضوع , في المرفقات .

- تحياتي .

RE: امل المساعده في تقسيم البيانات على مجموعات - VB_Coder - 19-12-13

السلام عليكم

- ويمكن إختصار الكود بهذا الشكل .

- تحياتي .

RE: امل المساعده في تقسيم البيانات على مجموعات - allayl - 19-12-13

شكرأ اخي VB_Coder بارك الله فيك

RE: امل المساعده في تقسيم البيانات على مجموعات - allayl - 20-12-13

اخي VB_Coder

المثال شغال 100%

بس لو عندي قسم فيه 50 موظف هل يمكن عمل تقسيمه لهم فقط دون جدول الموظفين كاملا

RE: امل المساعده في تقسيم البيانات على مجموعات - VB_Coder - 20-12-13

السلام عليكم

- إذا كنت تريد عمل التقسيم لموظفي قسم معين فقط دون باقي الأقسام ، فأكيد أنه يوجد حقل لنوع القسم في جدول الموظفين ، إذا كل ما عليك فعله هو إضافة شرط إسم القسم في جملة الإستعلام ، مثلاً : Where Dept='الصادر' ، وباقي الكود أتركه كما هو ، يعني عدل الإستعلام الموجود في المثال السابق ليصبح هكذا :

كود :

IF I = 1 Then

Select Top " & Group_Members(I) & " ID,Name From Table1 Where Dept ='الصادر'

Else

Select Top " & Group_Members(I) & " ID,Name From Table1 Where Dept ='الصادر' And ID >" & LastID

End IF

- وأيضاً عدل الإستعلام الذي في أول الكود لاتنساه .

- تحياتي .

RE: امل المساعده في تقسيم البيانات على مجموعات - allayl - 20-12-13

شكرآ لك اخي الكريم