想实现先从对象情况_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))
加好友 
发短信
Post By：2022/1/13 16:39:00 [显示全部帖子]
