0

このコードの助けが必要..正常に追加されましたが、各データベースレコードからループしません..DBに3つのレコードがありますが、彼は1つしか検出せず、ループを使用しています..ループして追加しません..このコードを修正する助けはありますか?

フィールド名から 3 つのレコードがあります: dtr_grantotal:

  1. = 10:41:00
  2. = 01:11:00

  3. = 03:30:10

    sqlSTR = "select * from tblTImelog where dtr_datelog Between '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'"
ExecuteSQLQuery(sqlSTR)

_totalDays = sqlDT.Rows.Count

If sqlDT.Rows.Count > 0 Then
    Dim T1 As String = "00:00:00"
    Dim myRow As DataRow = sqlDT.Rows(sqlDT.Rows.Count - 1)
    Dim span1 As TimeSpan = TimeSpan.Parse(T1)

    For i = 0 To sqlDT.Rows.Count - 1
        Dim span2 As TimeSpan = TimeSpan.Parse(sqlDT.Rows(i)("dtr_grandtotal"))
        t1 = span1.Add(span2).ToString
    Next 

    MsgBox(t1)
End If

    彼は最初のメッセージボックスからのみ表示します.. forループに追加しましたが..

4

2 に答える 2

0

Forループを次のように置き換えます。

 For i = 0 To sqlDT.Rows.Count - 1
            Dim span2 As TimeSpan = TimeSpan.Parse(sqlDt.Rows(i)("dtr_grandtotal").ToString)
            span1 = span1.Add(span2)
        Next

        MsgBox(span1.ToString)
于 2012-07-17T02:46:12.083 に答える
0

t1毎回上書きしています。代わりにこれを行います：

For i = 0 To sqlDT.Rows.Count - 1
    Dim span2 As TimeSpan = TimeSpan.Parse(sqlDT.Rows(i)("dtr_grandtotal"))
    span1 = span1.Add(span2)
Next 

t1 = span1.ToString
MsgBox(t1)
于 2012-07-17T02:41:27.933 に答える