0

リスト項目のプロパティのインデックスをインクリメントするのに問題があります。これがコードです。

        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 はパラメーターでまったく増加しません。

ありがとう

4

3 に答える 3

0

ループ変数 (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);
于 2010-05-08T21:27:56.650 に答える
0

VB.Net にはインクリメント演算子がありません。

于 2010-05-08T21:28:05.893 に答える
0

この関数を追加

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

楽しみ....

于 2010-05-09T07:58:36.510 に答える