[hglogtd]

Dim res =
From x In Me.____SHIC_be1DataSet.cheqs
Where x.cheq_ID = TryCast(CheqsBindingSource.Current, DataRowView).Item("Cheq_ID")

If IsDBNull(res(0).Item("Cheq_modf")) Then res(0).Item("Cheq_modf") = String.Empty

Form1.ReportViewer1.LocalReport.DataSources(0).Value = res.ToList
Form1.ReportViewer1.RefreshReport()

Form1.Show()
Me.Hide()


--------------------------------------------------------------------------------

يعطيك العافية وما قصرت وكتب الله اجرك