类“System.Data.DataTable”没有默认属性，因此无法被索引

[slove1116]

一段代码

 Private Function ReadGridView1() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow
        ' Dim i As Integer
        dt.Columns.Add(New DataColumn("pp"))
        dt.Columns.Add(New DataColumn("yyyy"))
        dt.Columns.Add(New DataColumn("mm"))
        dt.Columns.Add(New DataColumn("dd"))
        dt.Columns.Add(New DataColumn("pamount"))
        dt.Columns.Add(New DataColumn("paid_date"))
        dt.Columns.Add(New DataColumn("cheque"))
        dt.Columns.Add(New DataColumn("payee"))
        dt.Columns.Add(New DataColumn("payremarks"))
        For i As Integer = 0 To Me.GridView1.Rows.Count - 1
            Dim y As TextBox
            Dim m As TextBox
            Dim d As TextBox
            Dim t1 As TextBox
            y = Me.GridView1.Rows(i).FindControl("yyyy")
            m = Me.GridView1.Rows(i).FindControl("mm")
            d = Me.GridView1.Rows(i).FindControl("dd")
            t1 = Me.GridView1.Rows(i).FindControl("T2")
            dr = dt.NewRow()
            dr(0) = i + 1
            dr(1) = y.Text.Trim()
            dr(2) = m.Text.Trim()
            dr(3) = d.Text.Trim()
            dr(4) = t1.Text.Trim()
            dr(5) = ""
            dr(6) = ""
            dr(7) = ""
            dr(8) = ""
            dt.Rows.Add(dr)
        Next
        Return dt
    End Function

 Private Function check_dt() As String
        Dim msg As String
        Dim dt As New DataTable
        dt = ReadGridView1()
        If dt.Rows.Count < 1 Then
            msg = "please add a payamount"
        Else
            ' msg = ""
            For count_R As Integer = 0 To dt.Rows.Count - 1
                ' msg = ""
                If dt(count_R)("yyyy") = "" Or dt(count_R)("mm") = "" Or dt(count_R)("dd") = "" Then
                    msg = "please enter a right date"
                Else
                    Dim dd As String
                    dd = dt(count_R)("yyyy") + "-" + dt(count_R)("mm") + "-" + dt(count_R)("dd")
                    Try
                        DateTime.Parse(dd)
                        msg = ""
                    Catch ex As Exception
                        msg = "wrong date time,please enter a right date"
                    End Try
                End If
            Next count_R
        End If
        Return msg
    End Function

在3.5下没问题,现在我删除了updatepanel,dt 就报了这个错误 类“System.Data.DataTable”没有默认属性，因此无法被索引

[Robin]

没设主键吧

[slove1116]

设置了也没用啊!

[hao1hao2hao3]

dt.Rows(count_R)( "yyyy")其他也一样修改。

[slove1116]

3楼正解,3.5居然不报错!我自己写错了.