VB.NET Инкрементирующие индексы

Question

У меня возникли проблемы с увеличением индексов свойств элемента списка. Вот код.

 Dim i As Integer = 0 

     For x As Integer = 1 To list.Count/19 
      database.ExecuteCommand("INSERT INTO Contacts VALUES ('" + _ 
            list.Item(i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "')") 
     Next 

++ ++ Не меняет никаких параметров в параметрах.

Благодаря

Answer 1

вам необходимо использовать переменный цикл (х) и увеличение индекса в этой манере.

Я делаю это на C#, но я уверен, что вы поймете.

string sql = "INSERT INTO Contact VALUES ('"; 

for(int i = 1; i < list.Count ; i++) 
{ 
    sql += list.Item(i) + "', '"; 

} 
sql = sql.Remove(sql.Length -1); 
sql += ")"; 

Database.ExecuteCommand(sql); 

Answer 2

У VB.Net нет оператора инкремента.

Answer 3

Добавить этой функцию

Function GetIncrementValue(ByRef x as Integer) as Integer 
    x=x+1 
    Return x 
End function 

Вашего код будет ......

Dim i As Integer = 0 

For x As Integer = 1 To list.Count/19 
    database.ExecuteCommand("INSERT INTO Contacts VALUES ('" + _ 
          list.Item(i) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "')") 
Next 

Наслаждайтесь ....