下列代码错哪了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With DataTables("表Ⅰ")
    Dim tj1 As Double = Val(.datarows(14)("B6")) + Val(.datarows(14)("B7"))
    If RibbonTabs("全面薄改")("电子计算")("学校类别").text = "教学点" Then
        Output.Show(tj1)
        If tj1 <= 4 Then
            .datarows(0)("B4") = 1.9
        ElseIf tj1 >= 36 Then
            .datarows(0)("B4") = 14
        Else
            For i As Integer = 0 To Tables("小学校舍标准").Rows.count -1
                If tj1 > Tables("小学校舍标准").Rows(i)("生均用地面积") AndAlso tj1 <= Tables("小学校舍标准").Rows(i+1)("生均用地面积") Then
                    .datarows(0)("B4") = Tables("小学校舍标准").Rows(i+1)("生均用地面积")
                    Exit For
                End If
            Next
        End If
    End If
End With

主题：下列代码错哪了