主题：【求助】无法将类型为“row”的值转换为类型“DataRow”。的代码修正

If Tables("信用卡管理_Table1").Current IsNot Nothing Then

    

    If Tables("信用卡管理_Table3").Current IsNot Nothing Then

        If Tables("信用卡管理_Table3").Current("是否分期")="不分期" Then

            MessageBox.Show("当前不分期,取消操作")

            e.Cancel = True

        Else

            Dim ab As String = Tables("信用卡管理_Table3").Current("账单编号")

            MessageBox.Show(ab)

            MessageBox.Show("是否分期 = '要分期' And 账单编号 ='" & ab & "'")

            For Each dr As DataRow In DataTables("账单分期").sqlSelect("是否分期 = '要分期' And 账单编号 ='" & ab & "'")

                Dim fdr As DataRow = DataTables("银行卡信息").sqlfind("银行卡号 = '" & dr("银行卡号") & "'")

                Dim d As Date = dr("还款期间")

                d = new Date(d.year, d.Month, fdr("还款日"))

                Dim d1 As Date = dr("账单期间")

                d1 = new Date(d1.year, d1.Month, fdr("账单日"))

                For i As Integer = 1 To dr("分期数")

                    Dim ndr As DataRow = DataTables("分期明细").sqlfind("银行卡号 = '" & dr("银行卡号") & "'and 分期编号 = '" & dr("分期编号") & "'And 账单期间 = #" & d1.AddMonths(i) & "#")

                    If ndr Is Nothing Then

                        MessageBox.Show("yu")

                        ndr=DataTables("信用卡管理_Table4").addnew

                    End If

                    MessageBox.Show("很少上")

                    ndr("银行卡号") = dr("银行卡号")

                    ndr("银行名称")=dr("银行名称")

                    ndr("每月金额")=dr("每月金额")

                    ndr("每月利息")=dr("每月利息")

                    ndr("账单编号")=dr("账单编号")

                    ndr("分期编号")=dr("分期编号")

                    If d<=d1 Then

                        ndr("还款期间") = d.AddMonths(i+1)

                    Else

                        ndr("还款期间") = d.AddMonths(i)

                    End If

                    ndr("账单期间") = d1.AddMonths(i)

                    ndr("分期序列")=0+i

                    ndr("是否还款")="未还款"

                Next

            Next

        End If

    End If

End If

DataTables("信用卡管理_Table4").save()