标题：自以为代码无懈可击，但数据就是错误，求助。
求助：
按如截图设置参数，按“打印”，出现一个图表。
紧接着，不关闭窗口，将“统计项目”由“业务员”换成“项目名称”，再按打印，数据有问题，连按几次，每次数据不一样，不知是为什么？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
此主题相关图片如下：未命名.gif
自己去分析吧，第一次这么分析，看看填充的结果对不对:
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()
Tables("窗口1_Table1") = dt
如果对，第二次这么分析,看看Filler得到的数据对不对:
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("经营报表")
一步一步去分析，找出问题出在哪一步，再分析具体的原因。
这种问题，别人帮不了你的，因为只有你自己清楚正确的数据是什么，你需要的是什么。