遍历dataset数据集的所有行的数据并绑定在text控件中刷新显示,一次显示一行数据

vb.net里~~~~我现在要写一个短信接口程序，纠结了两星期了~~~~ --------------------编程问答-------------------- http://blog.csdn.net/fangxinggood/article/details/2304047 --------------------编程问答-------------------- 谢谢,但我的意思是要自动刷新的,放到定时器里~~~ --------------------编程问答-------------------- --------------------编程问答-------------------- 我自己写的为什么只能遍历两列啊???
--------------------编程问答--------------------     MobPort.Text = testDataSet.Tables("wait_message").Rows(i).Item("uportnum")
            TelNum_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("uphonenum")
            'DeleteSms_Index.Text = testDataSet.Tables("wait_message").Rows(i).Item("ucontent") '此行是主鍵值，所以不打算顯示
            SendSms_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("ucontent")
            ReceiveSms_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("uIndex")
            DeleteSms_Index.Text = testDataSet.Tables("wait_message").Rows(i).Item("ustatus")
            'MsgBox(testDataSet.Tables("wait_message").Rows.Count - 1)
            ' MsgBox(MobPort.Text & testDataSet.Tables("wait_message").Rows(i).Item("uportnum"))
            MsgBox(i)
--------------------编程问答--------------------

引用 4 楼 dmzhjg 的回复:

我自己写的为什么只能遍历两列啊???

是“两列”还是“两行”？

另外，把你的整个循环写出来？

你应该监视你的DataSet中是不是真的只有2行数据 --------------------编程问答-------------------- 我多写了i=i+1,所以才会出现问题,现在已经解决了,不用程序还有很多问题,怎么更新数据库里的数据

Timer2.Enabled = True

        Timer2.Interval = 1000
        '每一秒刷新一次
        '遍历取值问题解决,i=i+1去掉

        Dim str2 As String = "server=localhost;database=test;user id=root;password=123;pooling=false;"

        Dim conn1 As MySqlConnection = New MySqlConnection(str2)
        conn1.Open()

        '查詢資料
        Dim str1 As String = "select * from wait_message where ustatus = '-1'"
        Dim adapter1 As Common.DbDataAdapter = New MySqlDataAdapter(str1, conn1)

        '將查詢結果放到記憶體testDataSet上的"wait_message"表格內
        Dim testDataSet As DataSet = New DataSet
        adapter1.Fill(testDataSet, "wait_message")

        Dim i As Integer = 0

        '它是按照0,2,4循环的.如果把i=i+1去掉可以读取到全部,不过跟弹出框和刷新不同步,控件读取数据的时间跟发送时间不同步问题,现在的问题还是不太清楚发送的数据有没有问题

        For i = 0 To testDataSet.Tables("wait_message").Rows.Count - 1

            MobPort.Text = testDataSet.Tables("wait_message").Rows(i).Item("uportnum")
            TelNum_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("uphonenum")
            'DeleteSms_Index.Text = testDataSet.Tables("wait_message").Rows(i).Item("ucontent") '此行是主鍵值，所以不打算顯示
            SendSms_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("ucontent")
            ReceiveSms_Text.Text = testDataSet.Tables("wait_message").Rows(i).Item("uIndex")
            DeleteSms_Index.Text = testDataSet.Tables("wait_message").Rows(i).Item("ustatus")
            'MsgBox(testDataSet.Tables("wait_message").Rows.Count - 1)
            ' MsgBox(MobPort.Text & testDataSet.Tables("wait_message").Rows(i).Item("uportnum"))
            'MsgBox(i)

            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            If Len(Trim(TelNum_Text.Text)) >= 11 And Sms_Send(Trim(TelNum_Text.Text), Trim(SendSms_Text.Text)) Then
                Sms_Disconnection_Button.Enabled = False
                MsgBox("发送短信成功！", MsgBoxStyle.Information, "提示")
                'Else
                '    MsgBox("发送短信失败！", MsgBoxStyle.Critical, "警告")

                Dim comstr As String
                comstr = " UPDATE wait_message SET ustatus = '1' WHERE ustatus = '-1' "

                adapter1.Fill(testDataSet, "wait_message")

                ''關閉資料庫的連結
                conn1.Close()
                'conn1.ConnectionString = Nothing
            End If
            Timer2.Enabled = False

        Next

        ' Timer2.Enabled = False --------------------编程问答-------------------- vb.net 连接数据库,VB.NET实时获取数据库更新数据
--------------------编程问答-------------------- 基本上解决了,但还是觉得好怪,下面还要重构,为什么发送跟控件刷新不怎么同步呢,分几个定时器可不可以?

补充：.NET技术 ,  VB.NET