الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط التقرير بالصفحة

بدأه thepast في 2 أغسطس 2012 · 5 رد · 734 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا عندي grideview

فيها مجموعة بيانات عملت checkbox بحيث اختار انا معينين

اريد عندما اختار ومن ثم اضغط على رز او اي حدث اريد ان يفتح التقرير وفيها هؤلاء الناس

كيف اقدر اربط بين القريدفيو والتقرير

انا انشأت تقرير كيف استطيع ان اريط بينهم

ارجووووووووووووكم المساعدة

#2

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

ما هو نو التقرير وما هي نوع قاعدة البيانات

#3

انا استخدم كريستال ريبورت التي بداخل الفيجول في items

نوع قاعدة البيانات هي اوراكل

ارجوووووووووووووو المساعدة ياشباب

#4

بامكانك تحويل

dataGridView1.DataSource الى ToDataTable

Public Shared Function IfNullObj(ByVal o As Object, Optional ByVal DefaultValue As String = "") As String
        Dim ret As String = ""
        Try
            If o Is DBNull.Value Then
                ret = DefaultValue
            Else
                ret = o.ToString
            End If
            Return ret
        Catch ex As Exception
            Return ret
        End Try
    End Function
Public Shared Function DataGridViewToDataTable(ByVal dtg As DataGridView,
    Optional ByVal DataTableName As String = "myDataTable") As DataTable
    Try
         Dim dt As New DataTable(DataTableName)
         Dim row As DataRow
         Dim TotalDatagridviewColumns As Integer = dtg.ColumnCount - 1
         'Add Datacolumn
         For Each c As DataGridViewColumn In dtg.Columns
             Dim idColumn As DataColumn = New DataColumn()
             idColumn.ColumnName = c.Name
             dt.Columns.Add(idColumn)
         Next
         'Now Iterate thru Datagrid and create the data row
         For Each dr As DataGridViewRow In dtg.Rows
             'Iterate thru datagrid
             row = dt.NewRow 'Create new row
             'Iterate thru Column 1 up to the total number of columns
             For cn As Integer = 0 To TotalDatagridviewColumns
                  row.Item(cn) = IfNullObj(dr.Cells(cn).Value) ' This Will handle error datagridviewcell on NULL Values
             Next
             'Now add the row to Datarow Collection
             dt.Rows.Add(row)
         Next
         'Now return the data table
         Return dt
   Catch ex As Exception
         Return Nothing
   End Try
End Function
#5

لقد جربت الكود بس ما اشتغل معي

يا اخوان مااريده اولا انا انشأت crystal report الموجود في نفس الفيجول في items تمام وانشأت في صفحة قريد فيو عادي يقوم بجلب بيانات الموظفي ووضعت فيه check box عشان اختار

الموظفين الذين اريد اخراجهم في التقرير

الذي اريده هو عندما اقوم باختيار مجموعة من الموظفين ثم اضغظ على زر يقوم بوضع الموظفين في التقرير كيف اعمل ذلك

ارجوووكم المساعدة وهل هذه الطريقة صحيحة

#6

قد يفيدك هذا الرابط

الرابط

بهذا الرابط ترسل array-of-strings الي stored-procedure ويكون الفلتر في قاعدة البيانات ثم تربط الناتج بالتقرير

اما جمع المظفين المختارين اظر هذا الكود

// Setup the values for PL/SQL Associative Array
            param1.Value = new[] { ""};

 For Each dr As DataGridViewRow In dtg.Rows
if dr(checkbox)=true then 
      // Setup the values for PL/SQL Associative Array
            param1.add(dr(EmpCode))
         end if
next

مواضيع مشابهة