3

問題が突然発生し、問題が発生した理由とその修正方法がわかりません。

コンパイルエラー

説明：このリクエストを処理するために必要なリソースのコンパイル中にエラーが発生しました。以下の特定のエラーの詳細を確認し、ソースコードを適切に変更してください。

コンパイラエラーメッセージ： BC30057：'Public Sub New（ItemNo As String、POLineMatch As String、ItemNumberPartCode As String、QuantityInvoiced As String、UnitPriceInvoiced As String、ExtendedPrice As String、ItemTax As String、Notes As String）'に対する引数が多すぎます。

コードは次のとおりです。

Partial Class Plugins_NonPO_GLCoding
  Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If Me.InvoiceItemsDV.Table.Rows.Count > 0 Then
            For i As Integer = 0 To Me.InvoiceItemsDV.Table.Rows.Count - 1
                Dim ItemNo As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ItemNo"))
                Dim POLineMatch As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("POLineMatch"))
                Dim ItemNumberPartCode As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ItemNumberPartCode"))
                Dim QuantityInvoiced As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("QuantityInvoiced"))
                Dim UnitPriceInvoiced As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("UnitPriceInvoiced"))
                Dim ExtendedPrice As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ExtendedPrice"))
                Dim GLAccount As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("GLAccount"))
                Dim ItemTax As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ItemTax"))
                Dim Notes As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("Notes"))
                Dim ItemTaxCode As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ItemTaxCode"))
                Dim Department As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("Department"))
                Dim ShipToCode As String = Me.NullCheck(Me.InvoiceItemsDV.Table.Rows(i)("ShipToCode"))
                Me.InvoiceItems.Add(New InvoiceItems(ItemNo, POLineMatch, ItemNumberPartCode, QuantityInvoiced, UnitPriceInvoiced, ExtendedPrice, GLAccount, ItemTax, Notes, ItemTaxCode, Department, ShipToCode))
            Next
        End If
End Sub
End Class

Public Class InvoiceItems
    Private _ItemNo As String
    Private _POLineMatch As String
    Private _ItemNumberPartCode As String
    Private _QuantityInvoiced As String
    Private _UnitPriceInvoiced As String
    Private _ExtendedPrice As String
    Private _GLAccount As String
    Private _ItemTax As String
    Private _Notes As String
    Private _ItemTaxCode As String
    Private _Department As String
    Private _ShipToCode As String
    Public Sub New(ByVal ItemNo As String, ByVal POLineMatch As String, ByVal ItemNumberPartCode As String, ByVal QuantityInvoiced As String, ByVal UnitPriceInvoiced As String, ByVal ExtendedPrice As String, ByVal GLAccount As String, ByVal ItemTax As String, ByVal Notes As String, ByVal ItemTaxCode As String, ByVal Department As String, ByVal ShipToCode As String)
        Me._ItemNo = ItemNo
        Me._POLineMatch = POLineMatch
        Me._ItemNumberPartCode = ItemNumberPartCode
        Me._QuantityInvoiced = QuantityInvoiced
        Me._UnitPriceInvoiced = UnitPriceInvoiced
        Me._ExtendedPrice = ExtendedPrice
        Me._GLAccount = GLAccount
        Me._ItemTax = ItemTax
        Me._Notes = Notes
        Me._ItemTaxCode = ItemTaxCode
        Me._Department = Department
        Me._ShipToCode = ShipToCode
    End Sub
    Public Property ItemNo() As String
        Get
            Return Me._ItemNo
        End Get
        Set(ByVal value As String)
            Me._ItemNo = value
        End Set
    End Property
' There are too many get sets so i deleted them out and left one for example
End Class

すべてが正常に機能し、複製マシンでもすべてが正常に機能します。このエラーがポップアップする理由は何でしょうか。

4

1 に答える 1

2

コンストラクターは同じではないようです。

From error: Public Sub New(ItemNo As String, POLineMatch As String, ItemNumberPartCode As String, QuantityInvoiced As String, UnitPriceInvoiced As String, ExtendedPrice As String, ItemTax As String, Notes As String)
From code:  Public Sub New(ByVal ItemNo As String, ByVal POLineMatch As String, ByVal ItemNumberPartCode As String, ByVal QuantityInvoiced As String, ByVal UnitPriceInvoiced As String, ByVal ExtendedPrice As String, ByVal GLAccount As String, ByVal ItemTax As String, ByVal Notes As String
                           , **ByVal ItemTaxCode As String, ByVal Department As String, ByVal ShipToCode As String**)

再コンパイルする前に、ソリューションをクリーンアップする必要があると思います。動作しない場合は、マシン上でコンパイルしたすべてのdllを見つけて、マシンから削除します。正しくクリーンアップされていないdllが存在する可能性があります。または、表示しているコードがエラーの原因ではない可能性があります。

于 2013-01-18T09:54:13.333 に答える