Загрузка массива с использованием петель

Question

Во-первых, это не проблема, а скорее как викторина. У меня есть 3 массива, которые я буду загружать данные из набора данных, в будущем этот набор данных может расширяться и код будет слишком длинным, как я могу загрузить данные, как показано ниже, используя циклы без использования дополнительного массива?

Dim ds as dataset = objDashBoardStats.DashBoard_TotalSales_Static_Get(objDashBoardStats) 

       Dim statvals(11) As Integer 
       statvals = LoadData(statvals, ds.Tables(0)) 

       Dim statvalsMen(3), statvalsWomen(3), statvalsUnknown(3) As Integer 

       statvalsMen(0) = statvals(0) 
       statvalsWomen(0) = statvals(1) 
       statvalsUnknown(0) = statvals(2) 
       statvalsMen(1) = statvals(3) 
       statvalsWomen(1) = statvals(4) 
       statvalsUnknown(1) = statvals(5) 
       statvalsMen(2) = statvals(6) 
       statvalsWomen(2) = statvals(7) 
       statvalsUnknown(2) = statvals(8) 
       statvalsMen(3) = statvals(9) 
       statvalsWomen(3) = statvals(10) 
       statvalsUnknown(3) = statvals(11) 

Answer 1

Я не знаю, VB явно, но он должен быть похож на это:

int max = statvals.size; //just get the amount of indexes in statvals. max%3 should be 0 
for(int i=0; i<max; i+=3) 
{ 
    statvalsMen(i/3) = statvals(i); 
    statvalsWomen(i/3) = statvals(i+1); 
    statvalsUnknown(i/3) = statvals(i+2); 
} 

Answer 2

Петля из Dataset вместо того, чтобы использовать другой массив (предполагается, что будет равное количество записей в таблице для мужчин, женщин и неизвестных, как указывает вопрос) ...

Dim intTotalPerCategory As Integer = ds.Tables(0).Rows.Count/3 

    Dim statvalsMen(intTotalPerCategory), statvalsWomen(intTotalPerCategory), _ 
     statvalsUnknown(intTotalPerCategory) As Integer 

    For i = 0 To (ds.Tables(0).Rows.Count - 1) Step 3 

     'Change "NameOfColumn" to the correct column name or ordinal number. 
     statvalsMen(i) = CInt(ds.Tables(0).Rows(i).Item("NameOfColumn")) 
     statvalsWomen(i + 1) = CInt(ds.Tables(0).Rows(i).Item("NameOfColumn")) 
     statvalsUnknown(i + 2) = CInt(ds.Tables(0).Rows(i).Item("NameOfColumn")) 

    Next