主题：自以为代码无懈可击，但数据就是错误，求助。

Dim xm As String=e.Form.controls("cb1").value
Dim sx As String=e.Form.controls("cb2").value

If vars("起始日期")=Nothing Or vars("截止日期")=Nothing
    MessageBox.Show("请设置起始日期和截止日期!")
    Return
End If

DataTables("经营报表").Loadfilter = "[_Identify] is not null"
DataTables("经营报表").Load()
DataTables("经营报表").DeleteFor("")
DataTables("经营报表").save()
'定义变量及赋值
Dim t As Table=Tables("" & e.Form.name & "_table1")
t.cols("业务员").visible=False
t.cols("项目名称").visible=False
t.cols(xm).visible=True

Dim s,s0,filter,filter1,filter2 As String
'生成临时表
Dim cmd As New SQLCommand
Dim dt,dt1,dt2,dt3,dt4,dt5 As DataTable
'cmd.C
cmd.CommandText = "SELECT DISTINCT " & xm & ",币种 From {数据库} where " & filter & " 单据类型 like '%销售%'"
dt = cmd.ExecuteReader()

Dim f As New Filler
f.SourceTable = dt '指定数据来源
f.SourceCols = "" & xm & ",币种" '指定数据来源列
f.DataTable = DataTables("经营报表") '指定数据接收表
f.DataCols = "" & xm & ",币种" '指定数据接收列
f.ExcludeExistValue=True
f.ExcludeNullValue=True
f.Fill() '填充数据

Tables("窗口1_Table1")  = DataTables("经营报表")

一步一步去分析，找出问题出在哪一步，再分析具体的原因。