Фредди
Уважаемый Naveedanj,
я даю вам этот код, чтобы помочь вам, и я надеюсь, что он сработает.
Следуйте этому, и вы поймете
доступ >>>> dataset >>>>> datatable >>>>> crystalreportdocument >>>>> crystal report >>>> crystal report viewer
это код
s = "select * from emp_name где name = '
mohamed ' "
cm1.Dispose ()
cm1.CommandText = s
cm1.Connection = cn1
r = cm1.ExecuteReader
Dim da As OleDbDataAdapter = New OleDbDataAdapter
da.SelectCommand =
cm1 r.Close ()
da.Fill (ds1, s )
'' '' '' '' ''
'' '' '' '' '' '' '' '' 'на этом шаге мы заполнили набор данных необходимыми данными' '' '' '' '' '' '
Dim Tb1 As DataTable = ds1.Tables (s)
'' '' '' '' '' '' '' '' '' '' '' 'и теперь у нас есть datatable с необходимыми данными' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
crystalreportdocument1.SetDataSource (Tb1)
crystalreportdocument1.Load ("D: gi.rpt")
' '' '' '' '' '' '' '' '' '' '' '' 'теперь мы соединили crystalreportdocument1 с таблицей дат и загрузили кристалл-отчет в crystalreportdocument1' '' '' '' '' '' ' ''
'' '' '' '
crystalreportviewer1.ReportSource = crystalreportdocument1
' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' теперь мы сообщаем программе просмотра Crystal Report, что источником отчета является crystalreportdocument1,
примите мою благодарность, и я надеюсь, что вы добьетесь
успеха
******теперь мы сообщаем программе просмотра отчетов Crystal, что источником отчета является документ crystalreport1, примите мою благодарность, и я надеюсь, что вы добьетесь успеха ******Теперь мы сообщаем программе просмотра отчетов Crystal, что источником отчета является документ crystalreport1, примите мою благодарность, и я надеюсь, что вы добьетесь успеха
******