其中业务员以下拉框填入的名字为准进行数据统计，但下面语句执行后没有任何数据，请教哪里需要修改？
Dim d1 As Date = e.Form.Controls("统计_StartDate").Value
Dim d2 As Date = e.Form.Controls("统计_EndDate").Value
Dim ywy As WinForm.ComboBox = e.Form.Controls("统计业务员名称") '下拉框名称
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("起始或结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If
Dim g As New GroupTableBuilder("业务员单", DataTables("登记表")) '业务员单为Click按钮名称
g.Filter = "业务日期>=#" & d1 & "# and 业务日期<=#" & d2 & "#"
g.Filter = "业务员 = '" & ywy.text & "'"
g.Totals.AddDef("流入金额")
g.Totals.AddDef("流出金额")
g.VerticalTotal = True
g.SubTotal = True
g.Decimals = 2
g.FromServer = True
g.Build()
Tables("业务管理_统计报表").DataSource = g.BuildDataSource()
e.Form.Controls("统计报表").Visible = True
加好友 
发短信
Post By：2021/1/26 13:08:00 [只看该作者]
