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

Dim t As Table=Tables(vars("当前表"))

Dim fl As String

Dim tb As Table=Tables("筛选条件")

For i As Integer=0 To tb.Rows.Count-1

Dim bj As String

Dim r As Row=tb.rows(i)

Select Case r("比较")

Case "大于"

bj=">"

Case "小于"

bj="<"

Case "等于"

bj="="

Case "不等于"

bj="<>"

Case "类似"

bj="like"

End Select

fl=tb.Rows(i+1)("连接") & " " & r("列名") & bj & r("内容") & " " & fl

MessageBox.show(fl)

如果只有一列 tb.Rows(i+1)("第一列") 显示为“第一列”即列名而不是对应的行值

表结构如下

此主题相关图片如下：tim截图20180828084847.png

主题：一个bug