主题：未将对象应用设置到对象的实例……求解！

1、是不是你的images文件夹没有拷贝过来？

2、你可以用代码将其隐藏，写到afterOpenProject事件

Tables("表A").Visible = False

1、空格不能多

Tables("会员信息表").Filter = " [星期要求] like '%" & wldm & "%' and [时段要求] like '%" & wlmc & "%' "

2、隐藏表以后，窗口中绑定的表不受影响

谢谢，两个问题都已解决！

还有一个问题，我找了很久，一直都没找到一个好的方法解决。

在一个窗口中，我插入了一个筛选树，然后又有一个条件筛选按钮，如何可以实现在筛选树中进行一次筛选之后，在其结果上使用条件筛选按钮进行第二次筛选？

在不将筛选树替换为加载树的情况下。

Dim flt As String = Tables("表A").Filter

flt = iif(flt > "", "(" & flt & ")", "1=1")

Tables("表A").Filter = flt & " and 第二次筛选条件"

谢谢，很好用~

连带着另外一个困扰已久的问题也得到了启发，有了解决方案~

Dim abcd As String = e.Form.Controls("TextBox1").text
Dim abce As String = e.Form.Controls("TextBox2").text
Dim abcr As String = e.Form.Controls("ComboBox1").text
Dim fl1 As String
Dim fl2 As String
Dim fl3 As String
fl1 = iif(abcd > "", "( " 单位编号 = '" & abcd & "'" )", "1=1")
fl2 = iif(abce > "", "(" 商品名称 = '" & abce & "'")", "2=2")
fl3 = iif(abcr > "", "(" 收银员 = '" & abcr & "'")", "3=3")

头疼，求助，以上一段代码的符号该怎么修改？

If e.DataCol.name = "一级分类" Then
    Dim bh As DataRow = DataTables("取值代码表").find("商品信息表_一级分类 = '" & e.NewValue & "'")
    If bh IsNot Nothing Then
        e.DataRow("编号前缀") = bh("商品信息表_编号前缀")
    End If
    If e.DataRow.isnull("一级分类") Then
        e.DataRow("商品编号") = Nothing
    Else
        Dim lb As String = e.DataRow("编号前缀")
        If e.DataRow("商品编号").StartsWith(lb) = False '如果编号前缀不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(商品编号)","一级分类 = '" & e.DataRow("一级分类")  & "' And [_Identify] <> " & e.DataRow("_Identify") ) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(1,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("商品编号") = lb & Format(idx,"000")
        End If
    End If
End If

以上代码报错，报错为

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.3.13.1
错误所在事件：表，商品信息表，DataColChanged
详细错误信息：
调用的目标发生了异常。
无法在 System.Int32 和 System.String 上执行“=”操作。