以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  无法将类型为“System.Boolean”的对象强制转换为类型“Foxtable.Table”。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174399)

--  作者:cnsjroom
--  发布时间:2022/1/13 16:39:00
--  无法将类型为“System.Boolean”的对象强制转换为类型“Foxtable.Table”。


 想实现先从对象情况_table2表中查找符合编号  证件号码  目标或特定信息  三个字段的值后   再从对象情况_table2表中指定的类别  内容 组合成字符输出

当前代码如下:运行后提示【无法将类型为“System.Boolean”的对象强制转换为类型“Foxtable.Table”。
    Dim Names1 As New List(Of object)
    Dim Names21 As New List(Of object)
    Dim t1 As Table=Tables("对象情况_table2").Filter="编号=\'" & vars("编号") & "\' and 证件号码 =\'" & vars("身份证号") & "\'and 目标或特定信息=\'目标\'"
    For Each r1 As Row In t1
        Names1.clear
        For Each r11 As Col In t1.Cols
            If r11.DataCol.Name="类别" Or r11.DataCol.Name="内容" Then
                If  r1.isnull(r11.DataCol.Name)=False  Then
                    \' Names.add( r1.DataCol.Name & ":" &r(r1.DataCol.Name))
                    Names1.add(r1(r11.DataCol.Name))
                End If
            End If
            
        Next
        If Names1.count > 0
            Names21.add("【" & r1.index+1 & "】" & String.join("",Names1.toarray))
        End If
    Next
    MessageBox.show(String.join(";",Names21.toarray))

--  作者:有点蓝
--  发布时间:2022/1/13 16:49:00
--  
Dim t1 As Table=Tables("对象情况_table2")
t1.Filter="编号=\'" & vars("编号") & "\' and 证件号码 =\'" & vars("身份证号") & "\'and 目标或特定信息=\'目标\'"