thanks
Code: Select all
Dim cnn As SqlConnection = Fn_Get_SqlConnection()
Dim ds As New DataSet
Dim Cmd1 As SqlDataAdapter = New SqlDataAdapter("Select * from rest where (pri=" & 1 & ") and ((code=" & txtcode.Text & "))", cnn)
Cmd1.Fill(ds, "rest") : Dim rpt As New cry2 : rpt.SetDataSource(ds)
frmreport.CrystalReportViewer1.ReportSource = rpt : frmreport.Show()