Question

我有一个名为FrmDrvouchers的表单。它包含一些公共子过程。我从另一个表单中调用这些子表单，这个表单从一个从FrmDrVouchers打开的表单打开，作为对话框。

当我直接打开FrmDrvouchers时，一切正常。但是，当我从另一个项目中调用FrmDrvouchers时，它也是此解决方案的一部分，当我从另一个（对话框）表单调用它们时，它的公共子程序不起作用。

以下是我点击FrmDrvouchers的按钮点击代码：

Dim FrmDrv As FrmDrVouchers = New FrmDrVouchers()    
FrmDrv.Show()

这有效，但那些公共潜艇没有。为什么呢？

谢谢您的回复，

它只是跳过我想做的事情，但不会抛出任何异常，现在我发布我的代码,,, plz看看，

这是我的主窗体的MenuStrip按钮点击代码：

 Private Sub CashPaymentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CashPaymentToolStripMenuItem.Click
    Dim DrVouchers As Transactions.FrmDebitVouchers = Transactions.New FrmDebitVouchers()
    DrVouchers.Show()
End Sub

这是FrmDebitVouchers的公共子系统，它们不工作,,,从某种意义上说，它们跳过了我写的功能，但没有抛出任何异常，

Public Sub DrVoucherOPen(ByVal VoucherNo As Integer)

    'Filling the Dataset with selected Voucher No to OPen the record
    DebitVouchersTableAdapter.FillByVoucher(Flr12131DataSet.DebitVouchers, VoucherNo)
    VoucherDateDateTimePicker.Enabled = False
End Sub

Public Sub DrVoucherBodyOPen(ByVal VoucherNo As Integer)

    '---------Procedure to Open DrVouchersBody And to OPen it in Datagridview-------------'
    'Getting the User No, and if it is admin then load fill dataset and allow user to edit the record
    If GetUserNumber() = 1 Then
        'Filling the dataset
        DebitVouchersBodyTableAdapter.FillByVoucher(Flr12131DataSet.DebitVouchersBody, VoucherNo)

        DrBodyDGV.DataSource = Nothing
        Dim Sum As New Decimal

        'Initializing the SerialNumbers variable
        SerialNumbers = New List(Of Integer)

        'Setting datagridview to opend record
        For i = 0 To Flr12131DataSet.DebitVouchersBody.Rows.Count - 1

            DrBodyDGV.Rows.Add()
            DrBodyDGV.Rows(i).Cells(0).Value = Flr12131DataSet.DebitVouchersBody.Rows(i).Item("SerialNo")
            DrBodyDGV.Rows(i).Cells(3).Value = Flr12131DataSet.DebitVouchersBody.Rows(i).Item("AccountNo")
            DrBodyDGV.Rows(i).Cells(6).Value = Flr12131DataSet.DebitVouchersBody.Rows(i).Item("Debit")
            DrBodyDGV.Rows(i).Cells(7).Value = Flr12131DataSet.DebitVouchersBody.Rows(i).Item("Narration")
            'Getting serial No into List
            SerialNumbers.Add(Flr12131DataSet.DebitVouchersBody.Rows(i).Item("SerialNo"))

            'Getting Account Name into Datagridview
            If Not Not IsNumeric(DrBodyDGV.Rows(i).Cells(3).Value) Then
                Dim Qa As New Flr12131DataSetTableAdapters.QueriesTableAdapter
                Dim StrAccountName = Qa.GetAccountName(DrBodyDGV.Rows(i).Cells(3).Value)
                DrBodyDGV.Rows(i).Cells(5).Value = StrAccountName

            Else
            End If

            Sum += DrBodyDGV.Rows(i).Cells(6).Value

        Next


        TxtTotal.Text = Sum

        'Setting the controls properties for admin

        DrBodyDGV.AllowUserToAddRows = True
        DrBodyDGV.AllowUserToDeleteRows = True

        DrBodyDGV.ReadOnly = False
        BtnSave.Enabled = True
        BtnDelete.Enabled = True
        BtnPrint.Enabled = True
        ToUpdate = True
    Else


        'If user is not admin then load all record and not allow user to modify it or delete
        ' Bounding the datagridview

        Dim Sum As Decimal = 0
        BtnSave.Enabled = False
        DebitVouchersBodyTableAdapter.FillByVoucher(Flr12131DataSet.DebitVouchersBody, VoucherNo)
        DrBodyDGV.DataSource = Flr12131DataSet.DebitVouchersBody

        For i = 0 To DrBodyDGV.Rows.Count - 1
            If Not Not IsNumeric(DrBodyDGV.Rows(i).Cells(3).Value) Then
                Dim Qa As New Flr12131DataSetTableAdapters.QueriesTableAdapter
                Dim StrAccountName = Qa.GetAccountName(DrBodyDGV.Rows(i).Cells(3).Value)
                DrBodyDGV.Rows(i).Cells(5).Value = StrAccountName
            Else
            End If

            Sum += DrBodyDGV.Rows(i).Cells(6).Value

        Next

        TxtTotal.Text = Sum

        DrBodyDGV.AllowUserToAddRows = False
        DrBodyDGV.AllowUserToDeleteRows = False
        ' DrBodyDGV.edit()
        DrBodyDGV.ReadOnly = True
        BtnSave.Enabled = False
        BtnDelete.Enabled = False
        BtnPrint.Enabled = True

    End If


End Sub

这是另一个DrVouchersRecord表单，我称之为Public Subs：

Private Sub DrVouchersRecordDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DrVouchersRecordDataGridView.CellDoubleClick


Dim FrmDrVouchers As FrmDebitVouchers = New FrmDebitVouchers()

    If FrmDrVouchers.DrBodyDGV.Rows.Count > 1 Then

        Dim Ans As Integer
        Ans = MsgBox("Unsaved changes will be lost, want to proceed", vbYesNo + vbInformation, "Alert")
        If Ans = vbYes Then
            Dim VoucherNo As New Integer

            VoucherNo = DrVouchersRecordDataGridView.CurrentRow.Cells(0).Value


            FrmDrVouchers.DrVoucherOPen(VoucherNo)
            FrmDrVouchers.DrVoucherBodyOPen(VoucherNo)
            Me.Close()
        End If

    Else

        Dim VoucherNo As New Integer

        VoucherNo = DrVouchersRecordDataGridView.CurrentRow.Cells(0).Value

        FrmDrVouchers.DrVoucherOPen(VoucherNo)
        FrmDrVouchers.DrVoucherBodyOPen(VoucherNo)
        Me.Close()

    End If

End Sub

我的表单序列是：

FrmMain是我的主要启动形式

之后FrmDebitVouchers在menustripButtonclick上打开

之后DebitVouchersRecord从DrmDebitVouchers打开为对话，并且从这些公共子系统被称为

我已经添加了Refrence

等待你的回答，

Answer 1

这个问题已经让许多程序员从VB6转向VB.NET。

在DataGridView_DoubleCellClick事件中，您可以创建 FrmDebitVouchers 的新实例。
然后，您的代码引用此新INSTANCE的属性/方法/对象，而不是通过CashPaymentToolStripMenuItem_Click创建的原始属性/方法/对象。（另请注意，此新实例永远不会显示在屏幕上，因此您要向隐藏的表单实例发送/请求更改）

当然， DrBodyDGV.Rows.Count 在此INSTANCE上为零（引用为FrmDrVouchers），因为可能此INSTANCE从未像第一个那样初始化。

尝试在创建后添加FrmDrVouchers.Show（），您将看到表单类FrmDebitVouchers的隐藏的第二个实例。

要解决您的问题，您需要将第一个FrmDebitVouchers实例的引用传递给DrVouchersRecord表单（例如在构造函数中或通过公共属性），然后使用该引用而不是创建FrmDrVouchers

公共子站点在此方案中不起作用

End Sub

1 个答案: