Dim date1 As Date = e.Form.Controls("DateTimePicker1").value
Dim sql As String = "Select * FRO M {hun} where ch_date = 'date1'"
Dim b As New CrossTableBuilder("任务表",sql, "jc")
b.HGroups.AddDef("ph_num")
b.VGroups.AddDef("ch_date","{0}日")
b.Totals.AddDef("hsxishu")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
Tables("检测任务_table1").DataSource = b.build()
请教专家
窗口中的语句为什么无法从控件中获取输入的日期呢?数据库设置没有问题。前面2句没起作用 ,第2句的select 语句如果换成固定日期是可以执行的。