【求助专家】如何编写代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助专家】如何编写代码

共有1952人关注过本帖树形打印复制链接主题：【求助专家】如何编写代码

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/29 13:15:00 [显示全部帖子]

If e.DataCol.Name = "当月入库数" OrElse e.DataCol.name = "收发数量" OrElse e.DataCol.name = "收发日期" Then
    If e.DataRow.Isnull("收发日期") Then
        e.DataRow("当月入库数") = Nothing
    Else
        Dim d As Date = e.DataRow("收发日期")
        e.DataRow("当月入库数") = DataTables("某表").Compute("sum(收发数量)", "收发日期 >= #" & d & "# and 收发日期 < #" & d.AddMonths(1) & "#")
    End If
End If

下一主题 >> << 上一主题

主题：【求助专家】如何编写代码