vb.net - 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

++i 在参数中根本不增加。

谢谢

Answer 1

您需要使用循环变量 (x) 并以这种方式增加索引。

我在 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

享受....