以下是引用狐狸爸爸在2011-8-25 15:00:00的发言：
自己去分析吧，第一次这么分析，看看填充的结果对不对:
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("经营报表")
一步一步去分析，找出问题出在哪一步，再分析具体的原因。
这种问题，别人帮不了你的，因为只有你自己清楚正确的数据是什么，你需要的是什么。
[此贴子已经被作者于2011-8-25 15:00:10编辑过]
加好友 
发短信
Post By：2011/8/25 11:18:00 [显示全部帖子]
此主题相关图片如下：未命名.gif