كود بحث في كرستيال ريبورت

:huh:

look this link

http://www.janinedalton.com/blog/archives/2004/looking-for-isnumeric-in-vbnet/

look this code

If Not (IsNumeric(TextBox1.Text)) Then
MessageBox.Show("A listening port must be a numeric value", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
exit sub
End If

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
               Application.StartupPath & "\dada1.mdb ;user id=admin;jet oledb:database password=123 ")
        Dim da As New OleDbDataAdapter("SELECT * FROM a1 where id=" + TextBox1.Text, con)
        Dim ds As New DataSet
        da.Fill(ds, "A1")
if ds.Tables("a1").Rows.Count=0 then
MessageBox.Show("no rows", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
exit sub
End If
        Dim r As New CrystalReport
        r.SetDataSource(ds.Tables("a1"))
        CrystalReportViewer.ReportSource = r
 

Public Function IsNumeric(ByVal str As String)
Dim r As Regex = New Regex(“\d+”)
Dim m As Match = r.Match(str)
If (m.Success) Then
Return True
End If
Return False
End Function

استاذنا الفاضل KARIMSOFT  لكم جزيل الشكر والاحترام  B) 

لا شكر علي واجب

ممكن استادنا الفاضل تشرح لنا كيف تحكم في عرض الحقول في التقرير 

ممكن توضح اكثر

قصدي كيف يمكن للمستخدم أن يختار الحقول  من الفورم  التي  يريدها أن تظهر في التقرير 

اجاب اخي محمد فؤاد علي سؤالك من قبل

صحيح ...... ولكن لم افهم الكود