Foxtable(狐表)用户栏目专家坐堂 → year()


  共有3492人关注过本帖树形打印复制链接

主题:year()

帅哥哟,离线,有人找我吗?
bagabaga
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1325 威望:0 精华:0 注册:2014/3/10 19:43:00
year()  发帖心情 Post By:2014/7/26 7:59:00 [只看该作者]

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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
bagabaga
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1325 威望:0 精华:0 注册:2014/3/10 19:43:00
  发帖心情 Post By:2014/7/26 8:20:00 [只看该作者]

dr = DataTables("记账").find("项目名称 like '*工资' And 科目 = '" & km & "' And year(日期) = " & year & " And month(日期) =" & month )
这句有问题

 回到顶部
帅哥,在线噢!
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4751 积分:34563 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/7/26 8:46:00 [只看该作者]

表达式不支持year、month等这类函数
可以改用SQLfind试试
[此贴子已经被作者于2014-7-26 8:49:54编辑过]

 回到顶部