• 0
خالد مسعود

مشكلة فى ملء الفلكس جريد بالبيانات

سؤال

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

عندى مشكلة عند ربط msflxGraid  بقاعدة بيانات sql server2000  عن طريق الكود الموجود ادناة الحقول بتبدا من أول الصفر وانا عاوز يكون موجود FixedCols ممكن التعديل على الكود  هو أجراء draw flex

Private Sub DrawFlex()
Dim R As Integer
With MSFGrid1
.Clear
.AllowUserResizing = flexResizeColumns


تحديد عدد الاعمدة يساوى عدد الحقول '

.Cols = Rs.Fields.Count

تحديد عدد الاسطر يساوى عدد السجلات +1 لان السطر الاول سيستخدم لعناوين الاعمدة'
.Rows = Rs.RecordCount + 1


لكتابة عناوين الاعمدة '

.Row = 0

For R = 0 To .Cols - 1
.Col = R
.Text = Rs.Fields®.Name
Next R



ملء الاسطر بالمعلومات من قاعدة البيانات '

Rs.MoveFirst
.Row = 0
Do Until Rs.EOF
.Row = .Row + 1
For R = 0 To .Cols - 1
.Col = R
A = Rs.Fields®.Value
A = IIf(IsNull(A), "", A)
.Text = A
Next R
Rs.MoveNext
Loop
End With
End Sub
[/table]post-273566-0-17650000-1371579696_thumb.

تم تعديل بواسطه خالد مسعود
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .


  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .