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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 累计分数

共有1970人关注过本帖树形打印复制链接主题：累计分数

woshiabc

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

加好友

发短信

等级：幼狐帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00

累计分数

Post By：2015/10/15 14:25:00 [只看该作者]

此主题相关图片如下：jx_rp)lbo9z2n368v3@wjgv.png

此主题相关图片如下：jc$4~yh0`x}9$j6rm9(7dj.png

下面为什么会报错

With e.Form

Dim dt1 As Date = .Controls("DateTimePicker1").value

Dim dt2 As Date = .Controls("DateTimePicker2").value

Dim dr As DataCol = e.DataCol

Dim hj As String=.controls("textbox1").value

Dim dt As DataTable =DataTables("仓库工作地图录入一览")

If e.DataCol.Name = "得分" And dr.IsNull("得分") = False And Filter = "提报日期 >= #" & dt1 & "# And 提报日期 <= #" & dt2 & "#"

Then

hj = dt.Compute("Sum(" & dr("得分") & ")")

End If

End With

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/15 15:03:00 [只看该作者]

Dim dt1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim dt2 As Date = e.Form.Controls("DateTimePicker2").value
Dim filter As String = "1=1"
If dt1 <> Nothing Then
filter &= " and 日期 >= #" & dt1 & "#"
End If
If dt2 <> Nothing Then
filter &= " and 日期 <= #" & dt2 & "#"
End If
e.Form.Controls("TextBox1").Text = DataTables("订单").Compute("sum(数量)", filter)

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

主题：累计分数