主题：代码首次运行 和第二次运行的结果不一样

附件是1楼的，

问题：为什么打开窗口第一次选择业务员不出现数据，以后选择业务员会出现数据。

数据是有的，在“按业务员”按钮的最后一行加上：

messagebox.show(Tables("应付账款明细账_Table1").Filter)

你就知道是怎么回事的了。

为什么会这样？ 分析一下你TextBox1的TextChanged事件。

遇到这样的问题，要用排除法，到底是没数据还是设置了筛选条件，到底是那段代码设置了条件？

你写了那么多的代码，相互有冲突，应该重新整理清晰。

第一次运行代码时，vars("业务员")是空，第二次及以后运行代码时，vars("业务员")不是空，这是为什么？

三楼已经告诉你答案了啊, 你自己用代码把它设置为空了：

If e.form.controls("textbox1").text<>""
      e.form.controls("textbox1").text=""
End If

如果没有这个代码，就不运行了。现在关键的是如何解决呀。

vars("业务员")=""
vars("单位名称")=""
Forms("明细账_业务员").open()
Dim s As String=e.Form.controls("cb2").text
If e.form.controls("textBox2").text<>""
    e.form.controls("textBox2").text=""
End If
If e.form.controls("textBox1").text<>""
    e.form.controls("textBox1").text=""
End If

问题可能就在这个代码上，不知如何解决。

删除这些代码

If e.form.controls("textBox2").text<>""
     e.form.controls("textBox2").text=""
End If
If e.form.controls("textBox1").text<>""
     e.form.controls("textBox1").text=""
End If

代码中始终用Vars变量就行

另TextBox1和TextBox2的TextChanged也有代码进行筛选，这是不应该的，也应该删除。

重新整理这个窗口的代码，太乱了。