2

我想通过索引从数据行中的特定列中获取值，我在访问返回的第二行中的值时遇到问题，下面是我想要实现的

            Dim daSeries As New dsSVTableAdapters.clsCH
            Dim dtSeries As New dsSV.SeriesDataTable
            Dim drSeries As dsSV.SeriesRow

            dtSeries = daSeries.CSeries(1)
            drSeries = dtSeries.Rows(0)

            Dim RowCnt As Integer = dtSeries.Rows.Count 'Current RowCnt is 2 

                Select Case RowCnt

                    Case 1 'Only One row exists
                        hxValue1.Value = drSeries.YFieldName 'access 1st row YFieldName
                        hyValue.Value = drSeries.XFieldName  'access 1st row XFieldName
                    Case 2 'Two rows exists
                        For i As Integer = 0 To dtSeries.Rows.Count - 1
                            If i = 0 Then 'First Row index
                                hxValue1.Value = drSeries.YFieldName  'access 1st row YFieldName
                                hyValue.Value = drSeries.XFieldName   'access 1st row XFieldName
                            ElseIf i = 1 Then  '2nd Row index
                                hxValue2.Value = drSeries.YFieldName 'access 2nd row YFieldName
                            End If
                        Next

                End Select
4

1 回答 1

0

您的 drSeries 变量始终位于第一行。您应该更改为循环内的第二行

Case 2 'Two rows exists
    For i As Integer = 0 To dtSeries.Rows.Count - 1
        ' Simply add this to your loop
        drSeries = dtSeries.Rows(i)

        If i = 0 Then 'First Row index
            hxValue1.Value = drSeries.YFieldName  'access 1st row YFieldName
            hyValue.Value = drSeries.XFieldName   'access 1st row XFieldName
        ElseIf i = 1 Then  '2nd Row index
            hxValue2.Value = drSeries.YFieldName 'access 2nd row YFieldName
        End If
    Next
于 2012-11-28T08:20:13.200 回答