السلام عليكم ورحمة الله و بركاته
سؤال في تحويل اداة CHECKBOX الى نص في تقرير الكريستال ريبورت 2008
اليكم الصور وخطوات التنفيذ المشكلة هي في حالة ان الاداة CHECKBOX = FALSE
لا تظهر الكتابة وفي حالة ان CHECKBOX = TRUE لا توجد مشكلة اي تظهر الكتابة
السلام عليكم
في الشطر لا تستخدم Else استخدم if وجرب (اقصد في التقرير)
تحياتي
لم افهم
الشرط هو
كود :
IF{DTDevice.Care}= TRUE THEN "نعم"
ELSE
"لا"
يعني لا بد من ELSE
ممكن تعدل الكود
السلام عليكم
بدل الا Else اكتب
PHP كود :
if{DTDevice.Care}=False Then "لا"
تحياتي
إذا كنت تقصد هكذا فهو يعطيني خطأ
كود :
IF{DTDevice.Care}= TRUE THEN "نعم"
if{DTDevice.Care}=False Then "لا"
طيب اخي العزيز ارفق المثال لنرى المشكلة ان امكن
تفضل اخي العزيز هذا المثال
في حالة أن السجل الذي به حقل E_OK =True
يظهر نعم
اما في حالة أن السجل الذي فيه حقل E_OK= False
لا يظهر شي
للمعلومية
عندما اجلب البيانات من خلال الاستعلام من قاعدة البيانات بدون استخدام DataSet , وعمل جدول بداخلها
لا توجد مشاكل
المشكلة فقط في حالة إذا استخدمت DataSet وعمل جدول به
لكن كيف يظهر في حالة أنه True و لا يظهر في حالة False
.....
بناءً على المثال ExamHedDataGrid2
لإظهار كلمات "
نعم" و "
لا" في الحقل
E_OK
كود :
If {DataTable1.E_OK}
Then "نعم"
Else "لا"
لإظهار علامات صح "
√" وخطأ "
x" في الحقل
E_OK مع تغيير نوع خط الحقل إلى
Wingdings
كود :
If {DataTable1.E_OK}
Then chr(252)
Else chr(251)
كود :
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
.....
