不會做循環..從mssql數據庫添加時間跨度

我需要此代碼的幫助..它成功添加，但它不會循環從每個數據庫記錄..我有3記錄在我的數據庫但他只檢測1和我使用循環..它不會循環並添加到它..任何幫助修改此代碼？不會做循環..從mssql數據庫添加時間跨度

我有從字段名3個記錄：dtr_grantotal：

= 10時41分00秒
= 1點11分零零秒

= 3點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

他只顯示從我的msgbox第一..雖然我把它添加到我的for循環..

來源

2012-07-17 Deorwin Bensurto

每次都覆蓋您的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-17 02:41:27 Blorgbeard

謝謝你..先生..我得到了工作代碼.. – 2012-07-17 02:53:23

很高興聽到它！不要忘記，如果這個答案對你有幫助，你可以通過點擊它旁邊的勾號來標記爲「正確」：http://meta.stackexchange.com/a/5235/369 – Blorgbeard 2012-07-17 04:18:22

與此更換你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-17 02:46:12

不會做循環..從mssql數據庫添加時間跨度

回答

相關問題