vb.net向Word文档添加表格

Question

我正在尝试制作一个应用程序，它将获取输入到程序中的信息并使用 Microsoft Word 生成报价单。现在我在word文档中创建表格时遇到问题。用户可以选择对 1 至 4 种不同的产品进行报价。如果引用 1 个产品，则会创建一个 6x3 表。如果引用 2 个产品，那么它将创建一个 6x5 表格，其中第 3 列分隔 2 个产品。如果引用了 3 或 4 个产品，那么它将在第一个表下创建另一个表，并遵循与第一个表相同的规则。如果我引用 3 或 4 个产品，该程序可以完美运行，但当我尝试引用 1 或 2 个产品时，就会出现错误。

我对编程还很陌生，所以我的代码可能看起来很草率。我知道我的错误可能与我使用 If 语句的方式有关，但这就是我所拥有的。谢谢

    Dim QuoteNumber As String
    Dim RowsNeeded As Integer

    QuoteNumber = NumberOfProducts.Text

    'Choosing the number of Columns Needed from number of carpets quoted
    Select Case QuoteNumber
        Case "1"
            RowsNeeded = 2
        Case "2"
            RowsNeeded = 5
        Case "3"
            RowsNeeded = 5
        Case "4"
            RowsNeeded = 5
    End Select

    Dim PricePer As String = "Product", PerLabor As String = "Labor"
    Dim PShipping As String = "Shipping"
    Dim PUpgrade As String = "Upgrade", PRegular As String = "Regular"

    ProductTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 6, RowsNeeded)
    ProductTable.Range.Font.Bold = False
    ProductTable.Range.Font.Underline = False

    ProductTable.Cell(1, 1).Range.Font.Underline = True 'Underline the Product

    'Only 1 Product being Quoted
    ProductTable.Cell(1, 1).Range.Text = cboxProductColor.SelectedItem.ToString
    ProductTable.Cell(2, 1).Range.Text = PricePer
    ProductTable.Cell(3, 1).Range.Text = PerLabor
    ProductTable.Cell(4, 1).Range.Text = PShipping
    ProductTable.Cell(5, 1).Range.Text = PUpgrade
    ProductTable.Cell(6, 1).Range.Text = PRegular

    ProductTable.Cell(2, 2).Range.Text = txtProductPrice.Text
    ProductTable.Cell(3, 2).Range.Text = txtProductLabor.Text
    ProductTable.Cell(4, 2).Range.Text = txtShippingPrice.Text
    ProductTable.Cell(5, 2).Range.Text = txtUpgrade.Text
    ProductTable.Cell(6, 2).Range.Text = txtRegular.Text
    ProductTable.Columns.Item(1).Width = oWord.InchesToPoints(1.8)   'Change width of columns 1 & 2
    ProductTable.Columns.Item(2).Width = oWord.InchesToPoints(0.8)

    '2 Products being Quoted
    If RowsNeeded = 5 Then

        'Spacing Column 3
        ProductTable.Columns.Item(3).Width = oWord.InchesToPoints(1)

        ProductTable.Cell(1, 4).Range.Font.Underline = True 'Underline the Product

        ProductTable.Cell(1, 4).Range.Text = cboxProductColor2.SelectedItem.ToString
        ProductTable.Cell(2, 4).Range.Text = PricePer
        ProductTable.Cell(3, 4).Range.Text = PerLabor
        ProductTable.Cell(4, 4).Range.Text = PShipping
        ProductTable.Cell(5, 4).Range.Text = PUpgrade
        ProductTable.Cell(6, 4).Range.Text = PRegular

        ProductTable.Cell(2, 5).Range.Text = txtProductPrice2.Text
        ProductTable.Cell(3, 5).Range.Text = txtProductLabor2.Text
        ProductTable.Cell(4, 5).Range.Text = txtShippingPrice2.Text
        ProductTable.Cell(5, 5).Range.Text = txtUpgrade2.Text
        ProductTable.Cell(6, 5).Range.Text = txtRegular2.Text
        ProductTable.Columns.Item(4).Width = oWord.InchesToPoints(1.8)   'Change width of columns 1 & 2
        ProductTable.Columns.Item(5).Width = oWord.InchesToPoints(0.8)
        ProductTable.Range.ParagraphFormat.SpaceAfter = 1

    End If

    'Using a line break before my next table
    oLineBreak = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
    oLineBreak.Range.InsertParagraphBefore()
    oLineBreak.Range.Text = ""
    oLineBreak.Format.SpaceAfter = 0.5
    oLineBreak.Range.InsertParagraphAfter()

    '3 Products being quoted
    'I'm creating a new table for Products 3 and 4
    If NumberOfProducts.SelectedIndex = 2 Or 3 Then
        Dim ProductTable2 As Word.Table

        'Display the Product Style/Color
        Dim QuoteNumber2 As String
        Dim RowsNeeded2 As Integer

        QuoteNumber2 = NumberOfProducts.Text

        'Choosing the number of Columns Needed from number of Products quoted
        Select Case QuoteNumber2
            Case "1"
                RowsNeeded2 = 1
            Case "2"
                RowsNeeded2 = 1
            Case "3"
                RowsNeeded2 = 2
            Case "4"
                RowsNeeded2 = 5
        End Select

        Dim PricePer2 As String = "Product", PerLabor2 As String = "Labor"
        Dim PShipping2 As String = "Shipping"
        Dim PUpgrade2 As String = "Upgrade", PRegular2 As String = "Regular"

        ProductTable2 = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 6, RowsNeeded2)
        ProductTable2.Range.Font.Bold = False
        ProductTable2.Range.Font.Underline = False

        ProductTable2.Cell(1, 1).Range.Font.Underline = True 'Underline the Product Color

        'This is for the 3rd Product
        ProductTable2.Cell(1, 1).Range.Text = cboxProductColor3.SelectedItem.ToString
        ProductTable2.Cell(2, 1).Range.Text = PricePer2
        ProductTable2.Cell(3, 1).Range.Text = PerLabor2
        ProductTable2.Cell(4, 1).Range.Text = PShipping2
        ProductTable2.Cell(5, 1).Range.Text = PUpgrade2
        ProductTable2.Cell(6, 1).Range.Text = PRegular2

        ProductTable2.Cell(2, 2).Range.Text = txtProductPrice3.Text
        ProductTable2.Cell(3, 2).Range.Text = txtProductLabor3.Text
        ProductTable2.Cell(4, 2).Range.Text = txtShippingPrice3.Text
        ProductTable2.Cell(5, 2).Range.Text = txtUpgradeTotal3.Text
        ProductTable2.Cell(6, 2).Range.Text = txtRegular3.Text
        ProductTable2.Columns.Item(1).Width = oWord.InchesToPoints(1.8)   'Change width of columns
        ProductTable2.Columns.Item(2).Width = oWord.InchesToPoints(0.8)

        '4 Products being Quoted
        If RowsNeeded2 = 5 Then

            'Spacing Column 3
            ProductTable2.Columns.Item(3).Width = oWord.InchesToPoints(1)

            ProductTable2.Cell(1, 4).Range.Font.Underline = True 'Underline the Product Color

            ProductTable2.Cell(1, 4).Range.Text = cboxProductColor4.SelectedItem.ToString
            ProductTable2.Cell(2, 4).Range.Text = PricePer2
            ProductTable2.Cell(3, 4).Range.Text = PerLabor2
            ProductTable2.Cell(4, 4).Range.Text = PShipping2
            ProductTable2.Cell(5, 4).Range.Text = PUpgrade2
            ProductTable2.Cell(6, 4).Range.Text = PRegular2

            ProductTable2.Cell(2, 5).Range.Text = txtProductPrice4.Text
            ProductTable2.Cell(3, 5).Range.Text = txtProductLabor4.Text
            ProductTable2.Cell(4, 5).Range.Text = txtShippingPrice4.Text
            ProductTable2.Cell(5, 5).Range.Text = txtUpgrade4.Text
            ProductTable2.Cell(6, 5).Range.Text = txtRegular4.Text
            ProductTable2.Columns.Item(4).Width = oWord.InchesToPoints(1.8)   'Change width of columns 1 & 2
            ProductTable2.Columns.Item(5).Width = oWord.InchesToPoints(0.8)
            ProductTable2.Range.ParagraphFormat.SpaceAfter = 1

Answer 1

就在我的脑海里，我想说你有很多行和事情。列颠倒了。在所有采用 row & 的方法中列参数，行参数在前（例如 Tables.Add、Cell() 等）。