主题：System.Boolean 报错

Select Case e.Path

    Case "griddata"

        '加载条件处理

        Dim filter As String = ""

        If e.Values.containskey("tj") Then

            filter = e.Values("tj")

        End If

        Dim dt As DataTable = DataTables("系统_菜单")

        dt.LoadFilter = filter

        '分页处理

        If e.Values.containskey("page") Then

            dt.LoadPage = e.Values("page") - 1

            dt.LoadTop = e.Values("limit")

        End If

        dt.Load()

        '生成json数据

        Dim arr As New JArray '数据列表数组

        For i As Integer = 0 To dt.DataRows.Count - 1

            Dim dr As DataRow = dt.DataRows(i)

            arr.Add(New jobject) '给数组添加对象

            For Each dc As DataCol In dt.DataCols

                If dc.IsDate Then

                    arr(i)(dc.Name) = Format(dr(dc.Name), "yyyy-MM-dd")

                Else If dc.IsBoolean Then

                arr(i)(dc.Name) = IIf(dr(dc.Name), True, False)

                Else If dc.IsNumeric Then

                arr(i)(dc.Name) = val(dr(dc.Name))

                Else

                    arr(i)(dc.Name) = dr(dc.Name).ToString()

                End If

            Next

        Next

        '返回数据

        Dim obj As New JObject

        obj("code") = 0

        obj("count") = val(dt.SQLCompute("Count(*)", filter))

        obj("data") = arr

        e.WriteString(CompressJson(obj)) '将对象值压缩返回给客户端

End Select

Dim arr As New JArray '数据列表数组

        For i As Integer = 0 To dt.DataRows.Count - 1

            Dim dr As DataRow = dt.DataRows(i)

            arr.Add(New jobject) '给数组添加对象

            For Each dc As DataCol In dt.DataCols

                If dc.IsDate Then

                    arr(i)(dc.Name) = Format(dr(dc.Name), "yyyy-MM-dd") 

                Else If dc.IsBoolean Then

                If dr(dc.Name) Then

                    arr(i)(dc.Name) = True

                Else

                    arr(i)(dc.Name) = False

                End If

                Else If dc.IsNumeric Then

                arr(i)(dc.Name) = val(dr(dc.Name))

                Else

                    arr(i)(dc.Name) = dr(dc.Name).ToString()

                End If

            Next

        Next

此主题相关图片如下：企业微信截图_20231102232256.png