How to display in the Controls value Form(Windows Forms) of the usercontrol(Windowd Forms) vb.net

Question

How to display in the Controls value Form(Windows Forms) of the usercontrol(Windowd Forms) vb.net

jewel 1,231

I am trying to create a project on VB.net.
I have used the usercontrol form (Name=uc_Daily_sale) as the form. Where datagridview,
dattympicar is attached. At runtime, when I Double click on this DataGridView2_CellDoubleClick Evint,
a Form(Name=frm_DailySaleSummary) opens. A datagridview is attached to this form and the SQL query is displayed there.
I mentioned the query below.
The problem is that in the coding in the load event of frm_DailySaleSummary,
I want to bring the value of the Controls of the usercontrol form. But that is not happening.
Thanks in advance to the experienced collaborators.
Private Sub DataGridView2_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick
frm_DailySaleSummary.Show()
End Sub

  Private Sub frm_DailySaleSummary_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim cmd As New SqlCommand(" select * from tbl_sales
 where  date between  @dt and @dt1
   and DSR_Name=@Dsr", con)
    Dim da As New SqlDataAdapter(cmd)
    cmd.Parameters.Add("@dt", SqlDbType.Date).Value = uc_Daily_sale.DateTimePicker1.Value
    cmd.Parameters.Add("@dt1", SqlDbType.Date).Value = uc_Daily_sale.DateTimePicker2.Value
    cmd.Parameters.Add("@dsr", SqlDbType.NVarChar).Value = uc_Daily_sale.txt_dsr.Text
    Dim ds As New DataSet
    da.Fill(ds, "item")

    DataGridView1.DataSource = ds.Tables("item")

End Sub

uc_Daily_sale.DateTimePicker1.Value
uc_Daily_sale.DateTimePicker2.Value
uc_Daily_sale.txt_dsr.Text
Shown Error

0 comments

Answer accepted by question author

0 additional answers

Your answer

Answer 1

Jiachen Li-MSFT 34,241 Microsoft External Staff

Hi @jewel ,
You can bring the value of the Controls in uc_Daily_sale to frm_DailySaleSummary through the constructor of frm_DailySaleSummary
Here is my code which you can refer to.
uc_Daily_sale

    Private Sub DataGridView2_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick  
        Dim frm As New frm_DailySaleSummary(DateTimePicker1.Value, DateTimePicker2.Value, txt_dsr.Text)  
        frm.Show()  
    End Sub

frm_DailySaleSummary

    Dim DTPicker1 As Date  
    Dim DTPicker2 As Date  
    Dim txt_dsr As String  
    Public Sub New(DTPicker1 As Date, DTPicker2 As Date, txt_dsr As String)  
  
        InitializeComponent()  
        DTPicker1 = DTPicker1  
        DTPicker2 = DTPicker2  
        txt_dsr = txt_dsr  
  
    End Sub

Hope the code above could be helpful.
Best Regards.
Jiachen Li

----------

If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

jewel 1,231 Reputation points

2021-11-20T07:35:52.83+00:00
I am sorry I filed to solve correctly. if i do not give parameter, its working correctly, but i give the parameter , the following Error is Shown.
Private Sub frm_DailySaleSummary_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cmd As New SqlCommand(" select * from
where date between @dt and @dt1
and DSR_Name=@Dsr", con)

Dim da As New SqlDataAdapter(cmd) cmd.Parameters.Add("@dt", SqlDbType.Date).Value = DTPicker1 cmd.Parameters.Add("@dt1", SqlDbType.Date).Value = DTPicker2 cmd.Parameters.Add("@dsr", SqlDbType.NVarChar).Value = txt_dsr Dim ds As New DataSet da.Fill(ds, "item") DataGridView1.DataSource = ds.Tables("item") End Sub

System.Data.SqlClient.SqlException: 'The parameterized query '(@dt date,@dt1 date,@dsr nvarchar(4000))
select * from tbl_sales' expects the parameter '@dsr', which was not supplied.'

Jiachen Li-MSFT 34,241 Microsoft External Staff

Hi @jewel ,
I made some modifications on my code.
The following code could solve your problem.

    Public Sub New(DTPicker1 As Date, DTPicker2 As Date, txt_dsr As String)  
        ' This call is required by the designer.  
        InitializeComponent()  
        Me.DTPicker1 = DTPicker1  
        ME.DTPicker2 = DTPicker2  
        Me.txt_dsr = txt_dsr  
        ' Add any initialization after the InitializeComponent() call.  
    End Sub

jewel 1,231 Reputation points

2021-11-23T05:02:02.023+00:00

You Solved my porblem that stuck for many days. Thank you very much.
Jiachen Li-MSFT 34,241 Reputation points Microsoft External Staff

2021-12-13T08:11:41.723+00:00

Hi @jewel ,
I'm glad to see your problem solved.
Please click "Accept Answer" so that others can quickly locate the problem and find a solution.
Thank you for your cooperation.