[aftfm]

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

سؤال في تحويل اداة CHECKBOX الى نص في تقرير الكريستال ريبورت 2008

اليكم الصور وخطوات التنفيذ المشكلة هي في حالة ان الاداة CHECKBOX = FALSE
لا تظهر الكتابة وفي حالة ان CHECKBOX = TRUE لا توجد مشكلة اي تظهر الكتابة

[Sajad]

السلام عليكم

في الشطر لا تستخدم Else استخدم if وجرب (اقصد في التقرير)

تحياتي

[aftfm]

لم افهم

الشرط هو

كود :

IF{DTDevice.Care}= TRUE THEN "نعم"
ELSE
"لا"

يعني لا بد من ELSE
ممكن تعدل الكود

[Sajad]

السلام عليكم

بدل الا Else اكتب

PHP كود :

if{DTDevice.Care}=False Then "لا" 


تحياتي

[aftfm]

إذا كنت تقصد هكذا فهو يعطيني خطأ

كود :

IF{DTDevice.Care}= TRUE THEN "نعم"
if{DTDevice.Care}=False Then "لا"

[Sajad]

طيب اخي العزيز ارفق المثال لنرى المشكلة ان امكن

[aftfm]

تفضل اخي العزيز هذا المثال

في حالة أن السجل الذي به حقل E_OK =True
يظهر نعم
اما في حالة أن السجل الذي فيه حقل E_OK= False
لا يظهر شي

[aftfm]

للمعلومية

عندما اجلب البيانات من خلال الاستعلام من قاعدة البيانات بدون استخدام DataSet , وعمل جدول بداخلها

لا توجد مشاكل
المشكلة فقط في حالة إذا استخدمت DataSet وعمل جدول به
لكن كيف يظهر في حالة أنه True و لا يظهر في حالة False

[aftfm]

وهذا مثال للتوضيح

[vbnet]

.....

بناءً على المثال ExamHedDataGrid2

لإظهار كلمات "نعم" و "لا" في الحقل E_OK

كود :

If {DataTable1.E_OK}
Then "نعم"
Else "لا"

منقول
لإظهار علامات صح "√" وخطأ "x" في الحقل E_OK مع تغيير نوع خط الحقل إلى Wingdings

كود :

If {DataTable1.E_OK}
Then chr(252)
Else chr(251)

فقط لحل مشكلة مثالك ExamHedDataGrid2...

كود :

Do While i < DataGridView1.Rows.Count
    t = ds.Tables("DataTable1")
    dr = t.NewRow
    If DataGridView1.Rows(i).Cells(0).Value IsNot Nothing Then
        dr(0) = DataGridView1.Rows(i).Cells(1).Value.ToString
        dr(1) = DataGridView1.Rows(i).Cells(2).Value.ToString
        dr(2) = DataGridView1.Rows(i).Cells(3).Value.ToString
    End If
    t.Rows.Add(dr)
    i += 1
Loop

منقول
يمكنك استخدام الطريقة التالية بدلا من طريقتك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Dim sql As String = " SELECT * FROM [tbl1] "
        Using da As New OleDbDataAdapter(sql, Con)
            Using dt As New DataTable

                da.Fill(dt)

                Dim rpt As New CrystalReport1
                rpt.SetDataSource(dt)

                Dim frmPrint As New frmPrint
                frmPrint.Text = "بيان بكافة الأجهزة"

                frmPrint.CrystalReportViewer1.ReportSource = rpt
                frmPrint.ShowDialog()
            End Using
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

.....