以文本方式查看主题 - 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 目标或特定信息=\'目标\'"
|