主题：代码不执行

老师您好！

  我写了一个计算模块，您帮我看一下带颜色部分代码，我不知道错在哪里，计算不出来，我估计可能是后面的表达式有问题。我想计算指定月份的数据。月份用时间控件选取。

 谢谢！

Dim dtb As New DataTableBuilder("当月生产数据")

dtb.AddDef("制造令号", Gettype(String), 60)
dtb.AddDef("用户", Gettype(String), 30)

dtb.AddDef("订单类别", Gettype(String), 20)

dtb.AddDef("订单_数量", Gettype(Double))
dtb.AddDef("订单_重量", Gettype(Double))
dtb.AddDef("订单_含税额", Gettype(Double))

dtb.AddDef("已完成_数量", Gettype(Double))
dtb.AddDef("已完成_重量", Gettype(Double))
dtb.AddDef("已完成_含税额", Gettype(Double))

dtb.AddDef("已发货_数量", Gettype(Double))
dtb.AddDef("已发货_重量", Gettype(Double))
dtb.AddDef("已发货_含税额", Gettype(Double))

dtb.AddDef("未完成_数量", Gettype(Double))
dtb.AddDef("未完成_重量", Gettype(Double))
dtb.AddDef("未完成_含税额", Gettype(Double))
dtb.Build()
'计算生产完成销售数据

Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim m As Integer = month(dtp.value)

For Each nm As String In DataTables("ddpsb").GetValues("zzh")
    Dim dr As DataRow = DataTables("当月生产数据").AddNew()
    Dim pr As DataRow = DataTables("ddpsb").find("zzh='" & nm & "'")
   
 
    dr("制造令号") = nm
     dr("用户") = pr("用户")

    dr("订单类别")=pr("订单类别")
    
    

     dr("订单_数量") = DataTables("ddpsb").Compute("Sum(数量)","[zzh]= '" & dr("制造令号") & "'and  month(接单日期)=m")

 dr("订单_重量") = DataTables("ddpsb").Compute("Sum(净重)","[zzh]= '" & dr("制造令号") & "'and month(接单日期)=m")

 dr("订单_含税额") = DataTables("ddpsb").Compute("Sum(含税金额)","[zzh]= '" & dr("制造令号") & "'and month(接单日期)=m")

 

 

    ' dr("订单_数量") = DataTables("ddpsb").Compute("Sum(数量)","[用户] = '" & dr("用户") & "' "and " & filter1")
  

Next
MainTable= Tables("当月生产数据")
Tables("统计生产数据_table1").datasource=DataTables("当月生产数据")

 dr("订单_数量") = DataTables("ddpsb").Compute("Sum(数量)","[zzh]= '" & dr("制造令号") & "' and  month(接单日期)=" & m)

老师您好！

    不好意思，还是上个模块，在运行时出现了错误信息：“表达式包含未定义的函数调用 month()。”

麻烦再指教！

表达式不支持这种用法，换种方式http://www.foxtable.com/webhelp/topics/2720.htm