Dim pc As New PersianCalendar Dim ShamsiDate As String ShamsiDate = pc.GetYear(DateTime.Now).ToString + "/" + pc.GetMonth(DateTime.Now).ToString() + "/" + pc.GetDayOfMonth(DateTime.Now).ToString() Dim ShamsiTime As String = pc.GetHour(DateTime.Now).ToString + " : " + pc.GetMinute(DateTime.Now).ToString Report1.Dictionary.Variables.Add((New StiVariable("Date", "Time", CType(GetType(String), Type), ShamsiTime, False))) Report1.Dictionary.Variables.Add((New StiVariable("Date", "ShamsiDate", CType(GetType(String), Type), ShamsiDate, False))) Dim da3 As New SqlDataAdapter Dim dtuser As New DataTable da3 = New SqlDataAdapter("select * from Tbl_NewUser order by family", con) da3.Fill(dtuser) Dim ds As New DataSet ds.Merge(dtuser) ds.Tables(0).TableName = "dtuser" Report1.RegData(ds) Report1.Show() Report1.Load("Report1.mrt")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)