- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- year（） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54346)
-- 发布时间：2014/7/26 7:59:00
-- year（）
Year的问题
Dim km As String = e.DataRow("科目")
Dim dd As Date = e.DataRow("日期")
Dim year As Integer = dd.Year
Dim month As Integer =dd.Month
Dim dr As DataRow
dr = DataTables("记账").find("项目名称 like \'*工资\' And 科目 = \'" & km & "\' And year(日期) = " & year & " And month(日期) =" & month )
If dr IsNot Nothing
dr("支出") = DataTables("工资表").SQLCompute("sum(应发工资)","科目 = \'" & km & "\' And year(日期) = " & year & " And month(日期) =" & month)
MessageBox.Show(dr("支出") & dr("日期") & dr("项目名称"))
dr.Save
End If
执行时，year出错
此主题相关图片如下：捕获.png
-- 发布时间：2014/7/26 8:20:00
--
dr = DataTables("记账").find("项目名称 like \'*工资\' And 科目 = \'" & km & "\' And year(日期) = " & year & " And month(日期) =" & month )
这句有问题
-- 发布时间：2014/7/26 8:46:00
--
表达式不支持year、month等这类函数
可以改用SQLfind试试
[此贴子已经被作者于2014-7-26 8:49:54编辑过]