منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل نعم ولا في اداة CHECKBOX الى نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : تحويل نعم ولا في اداة CHECKBOX الى نص (/showthread.php?tid=2784)

الصفحات: 1 2

تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 07-05-14

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

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

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - Sajad - 07-05-14

السلام عليكم

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

تحياتي

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 07-05-14

لم افهم

الشرط هو

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

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - Sajad - 08-05-14

السلام عليكم

بدل الا Else اكتب

PHP كود :
if{DTDevice.Care}=False Then "لا" 

تحياتي

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 08-05-14

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

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


RE: تحويل نعم ولا في اداة CHECKBOX الى نص - Sajad - 08-05-14

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 09-05-14

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

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 09-05-14

للمعلومية

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

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - aftfm - 09-05-14

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

RE: تحويل نعم ولا في اداة CHECKBOX الى نص - vbnet - 10-05-14

.....

بناءً على المثال 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

.....