主题：时间段问题求助！

Dim fd As Date = e.form.controls("StartDate").Value
Dim ld As Date = e.form.controls("EndDate").Value

e.Form.Controls("Table1").Table.DataTable.LoadFilter = "鉴定时间 >= #" & fd & "# And 鉴定时间 <= #" & ld & "#"
e.Form.Controls("Table1").Table.DataTable.Load

那代码就决定不可能会报错

你的鉴定统计表，没有一列叫做 鉴定时间 的列。

 写了一大堆，没人知道你想表达什么意思。直接写代码就行啊，查询代码有社么问题么？

Dim fd As Date = e.form.controls("StartDate").Value
Dim ld As Date = e.form.controls("EndDate").Value
Dim filter As String = "1=1"
If fd <> Nothing Then
    filter &= " and 鉴定时间 >= #" & fd & "#"
End If
If ld <> Nothing Then
    filter &= " and 鉴定时间 <= #" & ld & "# "
End If
e.Form.Controls("鉴定统计表").Table.DataTable.LoadFilter = filter
e.Form.Controls("鉴定统计表").Table.DataTable.Load