Sorry Sir/Madam
As I am the first time user for your site, I dont understand hou to get the answer that I have posted recently. If you help me using my email
email removed
I shall be highly obliged
What I have tried:
because the report viewing successfully and after 60 times of viewing a particular rpt then I found the error LOAD REPORT FAILED
'------------------------------------------------------------
Function SELECT_AND_RET_DATASET(ByVal DT_ As DataSet, ByVal TABLE As String, ByVal COL As String, ByVal ord As String, ByVal con_type As String) As DataSet
If cn_sql.State = ConnectionState.Open Then
Threading.Thread.Sleep(100)
DT_ = SELECT_AND_RET_DATASET(DT_, TABLE, COL, ord, con_type)
End If
cn_sql.ConnectionString = datastruct_log()
cn_sql.Open()
DT_ = New DataSet
If ord = "" Then
adp_sql = New MySqlDataAdapter("select " & COL & " from " & TABLE & "", cn_sql)
Else
adp_sql = New MySqlDataAdapter("select " & COL & " from " & TABLE & " order by " & ord & "", cn_sql)
End If
Dim ffd As String = "select " & COL & " from " & TABLE & " order by " & ord & ""
adp_sql.Fill(DT_, "" & TABLE & "")
cn_sql.Close()
Return DT_
End Function
'------------------------------------------------------------
ds6 = SELECT_AND_RET_DATASET(ds6, "sal_print", "*", "", "")
For Each dr In ds6.Tables(0).Rows
dr("col99") = _cstr
Next
cr.SetDataSource(ds6.Tables(0))
Dim f As New frmViewReport
f.CrystalReportViewer1.ReportSource = cr
f.CrystalReportViewer1.Zoom(1)
If frm_add_sale.PrintView_Opt = "Y" Then
f.cmd_print_Click(New Object(), New System.EventArgs())
Else
f.ShowDialog()
End If