Visual Basic

Biplob Singha Shee wrote:

My question is how should I implement it in a combobox and in datagridview combobox ?

Biplob Singha Shee wrote:

but this is a bit complex to me.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

public partial class frmViewer : Form
{
    public frmViewer(string sReportFile, DataSet dsData)
    {
        InitializeComponent();
        ReportFile = sReportFile;
        ReportDataSet = dsData;
    }

    private string ReportFile { get; set; }
    private DataSet ReportDataSet { get; set; }

    private void Form1_Load(object sender, EventArgs e)
    {
        string sPath = Path.GetDirectoryName(Application.ExecutablePath) + "\\Reports";
        ReportDataSet.Tables[0].TableName = "dtReport";
        ReportDataSet.DataSetName = "ReportData";
        string RepResource = Path.Combine("D:\\Bin10\\Reports\\Reports\\Reports", ReportFile + ".rdlc");

        repViewer.Reset();
        repViewer.LocalReport.ReportEmbeddedResource = RepResource;
        repViewer.LocalReport.DataSources.Add(new ReportDataSource("ReportData", ReportDataSet.Tables[0]));
        //repViewer.LocalReport.DataSources.Add(new ReportDataSource(RepResource, oDS.Tables[0]));

        this.repViewer.RefreshReport();
    }
}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' create a list to hold the report parameters
Dim params As New List(Of Global.Microsoft.Reporting.WinForms.ReportParameter)

' process existing report parameters and modify needed values
For Each pi As Microsoft.Reporting.WinForms.ReportParameterInfo In ReportViewer1.LocalReport.GetParameters()

   ' get any existing values
   ' values are stored as readonly IList(Of String)
   Dim values() As String = pi.Values.ToArray()

   Select Case pi.Name
      Case "FromDate"
         SetParameterValue_0(values, Today.ToString()) ' set your parameter value here as a string
      Case "ToDate"
         SetParameterValue_0(values, Today.AddDays(1.0#).ToString()) ' set your parameter value here as a string
   End Select

   ' parameter value(s) can only be set in the ReportParameter constructor
   params.Add(New Microsoft.Reporting.WinForms.ReportParameter(pi.Name, values))
Next

' set the report paramters to the modified list
ReportViewer1.LocalReport.SetParameters(params)

Me.ReportViewer1.RefreshReport()
End Sub

Private Sub SetParameterValue_0(ByRef values() As String, ByVal value As String)
      If values.Length = 0 Then
         values = New String() {value}
      Else
         values(0) = value
      End If
End Sub