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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下列代码错哪了

共有3058人关注过本帖树形打印复制链接主题：下列代码错哪了

lpxjw_zyl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：376 积分：4189 威望：0 精华：0 注册：2008/9/1 14:18:00

下列代码错哪了 发帖心情

Post By：2014/5/23 3:03:00 [只看该作者]

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