此主题相关图片如下：a2_xvg2lyw}xp6g~_syx7.png


此主题相关图片如下：e~50r7lhonnw1$m0w7)dxr.png


此主题相关图片如下：f}dlza1g9}~kovq)kjycp.png

这三张表分别是“报名登记表、成绩录入表、鉴定统计表”，其中“鉴定统计表”的列和行是固定的，第1列是单位，数量是不变的，其它各列是从“报名登记表和成绩录入表”中统计相应的数据，现在的代码只能做到累计，但我想做到在“鉴定统计表”中按上半年、下半年、全年（比如2014年）点击按钮查询并导出或打印，下面的代码我应该怎么写？在帮助里也看了很久，也没有理解该怎么下手。
Dim dr As DataRow = e.DataRow
Dim dt As Table = Tables("报名登记表")
If e.DataCol.Name = "工作单位" Then
    dr("报名_初级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'初级工\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("报名_中级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'中级工\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("报名_高级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级工\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("报名_技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'技师\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("报名_高级技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级技师\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
    dt = Tables("成绩录入表")
    dr("理论_技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'技师\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("理论_高级技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级技师\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("实操_技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'技师\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("实操_高级技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级技师\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
    dt = Tables("证书编号表")
    dr("取证_初级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'初级工\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("取证_中级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'中级工\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("取证_高级工") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级工\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("取证_技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'技师\' and 工作单位 = \'" & dr("工作单位")  & "\'" )
    dr("取证_高级技师") = dt.Compute("Count(身份证号码)", "鉴定等级 = \'高级技师\' And 工作单位 = \'" & dr("工作单位")  & "\'" )
   
End If

此主题相关图片如下：v33vzru0b$u{qqu3b5xo3w2.jpg

这是鉴定统计表的窗口

参考下面的代码：fd 和 ld 换成你窗口中的日期控件的值

Dim Val As Date = Date.Today()
Dim Val1 As Date = Date.Today()
Dim ld As Date
Dim fd As Date
If InputValue(Val, "开始日期","请输入开始日期:" ) Then
    fd  = Format(val, "yyyy-MM-dd")
        If InputValue(Val1, "截止日期","请输截止入日期:" ) Then
        ld = Format(val1, "yyyy-MM-dd")
        e.Form.Controls("Table1").Table.DataTable.LoadFilter = "鉴定时间 >=  \'" & fd & "\' And 鉴定时间 <= \'" & ld & "\'"
        e.Form.Controls("Table1").Table.DataTable.Load
    End If
End If

这段代码应该是窗口中的“查询”按钮代码吧？有几个地方不明白，这个窗口表中涉及到的“报名登记表”和“成绩录入表”在哪体现出调用了它们？是“table1”？

2个窗口中的日期控件分别是：StartDate和EndDate，都是DateTimePicker控件，我对代码理解能力很差，请赐教！

请Bin版明示，“查询”按钮就这两句代码就可以了吗？还是要写成下面这样的：

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