Как мне исправить этот многомерный массив?

Question

Итак, мне нужно создать программу, которая отображает ежемесячные продажи и итоги трех разных областей компании, когда я нажимаю кнопку. Я добавил этот код, но не могу понять, как это правильно. Может кто-нибудь посоветовать мне, как это исправить. Кроме того, мои заголовки "провинция, процент, вклад и т. Д. c" не отображаются в списке при загрузке формы.

Таким образом, в основном значения в моих файлах .txt следующие:

1, Квазулу Натал, 44,120000
1, Гаутенг, 33,900000
1, Западный Кейп, 23,65000
2, Квазулу Натал, 56,190000
2, Гаутенг, 25,85000
2, Западный Кейп, 19,64000
3, Квазулу-Натал, 54,175000
3, Гаутенг, 25,80000
3, Западный Кейп, 21,71000
4 , Квазулу-Натал, 55,188000
4, Гаутенг, 25,83000
4, Западный Кейп, 20,67000
5, Квазулу-Натал, 46,125000
5, Гаутенг, 31,87000
5, Западный Кейп, 23,65000
6, Квазулу Натал, 53,163000
6, Гаутенг, 26,80000
6, Западный Кейп, 21,64000

Теперь они должны показываться под заголовками в месяц (1 - 6). Когда я запускаю свой код, они не показывают заголовки, только названия мест. Не выдает ошибок

Imports System.IO

Public Class FormMain

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        resultsBox.Items.Clear()
        resultsBox.Columns.Add("Province", 100, HorizontalAlignment.Center)
        resultsBox.Columns.Add("Percentage", 100, HorizontalAlignment.Center)
        resultsBox.Columns.Add("Contribution", 100, HorizontalAlignment.Center)
        resultsBox.Columns.Add("Total Cost", 100, HorizontalAlignment.Center)
    End Sub

    Private Sub ExitBtn_Click(sender As Object, e As EventArgs) Handles ExitBtn.Click
        Me.Close()
    End Sub

    Private Sub ShowResultsBtn_Click(sender As Object, e As EventArgs) Handles ShowResultsBtn.Click

        Dim salesReport As String = MonthlyCBox.Text
        Dim filereader As New StreamReader("C:\Users\HP Notebook 15\Desktop\main.txt")
        Dim details As Array
        Dim provinceFound As String = " "
        Dim percentageContribute As Integer = 0
        Dim monthlySales As Integer = 0
        Dim totalvalue As Integer = 0

        While filereader.EndOfStream = False
            details = filereader.ReadLine().Split(",")
            Dim province As String = details(1)
            Dim percentage As Decimal = details(2)
            Dim monthlyammount As String = details(3)
            Dim totalamm As String = details(3)
            If details(0) = salesReport Then
                resultsBox.Items.Add(New ListViewItem({province, percentage, FormatCurrency(monthlyammount), FormatCurrency(totalamm)}))
            End If
        End While

    End Sub


End Class

Answer 1

Полагаю, вы используете ListView, а не List Box. Если это так, пожалуйста, добавьте resultsBox.View = View.Details в событие загрузки. Это должно видеть текст заголовка.