This is the code in form1:
Expand|Select|Wrap|Line Numbers
- Public Shared Sub testsub()
- MsgBox("Hello")
- Call dgv() '<<<<<<< Generates an error
- End Sub
What am I doing wrong?
EX1 (code in form1):
Expand|Select|Wrap|Line Numbers
- Public Sub dgv()
- ' Dim dgv_rec As New DataGridView
- Dim qry As String = "select recd_id, recd_number, recd_inventorydate from t021400_records order by recd_number desc;"
- Dim cs As String = gs_SQL_CS_RecordManagement
- Try
- Dim connectionString As String = cs
- Dim connection As New SqlConnection(connectionString)
- Dim dataadapter As New SqlDataAdapter(qry, connection)
- Dim ds As New DataSet()
- connection.Open()
- dataadapter.Fill(ds, "dgv")
- ' dataadapter.Fill(ds)
- connection.Close()
- dgv_Records.DataSource = DBNull.Value
- dgv_Records.DataSource = ds
- dgv_Records.DataMember = "dgv"
- With dgv_Records
- .RowsDefaultCellStyle.BackColor = Color.Bisque
- .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
- End With
- Catch EX As Exception
- MsgBox(EX.ToString & " - (SQLRoutines-ReadT010200_MyManagementTeam)")
- Exit Sub
- End Try
- End Sub
EX2 (code in form2):
Expand|Select|Wrap|Line Numbers
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Form1.testsub()
- End Sub
- End Class