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

共有24773人关注过本帖树形打印复制链接主题：请教

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/4/5 16:45:00 [只看该作者]

这样试试

Dim r As Row = CurrentTable.Current
Dim Dt,StartDate,EndDate As Date
Dim Sum As Double
Dt = r("日期")
If r.IsNull("日期") Then
    StatusBar.Message1= ""
Else
    StartDate = New Date(Dt.Year,Dt.Month,1)
    EndDate = New Date(Dt.Year,Dt.Month,Date.DaysInMonth(Dt.Year,Dt.Month))
    Sum = DataTables("订单").Compute("Sum(数量)","[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#")
    StatusBar.Message1= "本月总计数量: " & Math.Round(Sum,3)
End If

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2009/4/5 17:11:00 [只看该作者]

Ok了，谢谢C版主！

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

总数 12 上一页 1 2

主题：请教