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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式问题

共有2529人关注过本帖树形打印复制链接主题：表达式问题

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

表达式问题

Post By：2019/1/9 17:13:00 [显示全部帖子]

老师,请帮我看下这个代码:我要计算截止到3月(1月-3月)的营业收入,月份的表达式结果结算不正确

Dim cb As WinForm.ComboBox = Forms("会计科目主窗口").Controls("ComboBox1") 比如我输入2018年3月

If cb.text > "" Then

Dim dt As DataTable = DataTables("凭证明细")

Dim tb As Table = Tables("利润表")

Dim d As Date = cdate(cb.Text)

tb(0,3) = dt.Compute("sum(贷方金额)","一级码 = '5101'and 年份 = '"& d.Year & "'and 月份 <= '"& d.Month & "' ") '营业收入

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）参考 http://www.foxtable.... 发帖心情

Post By：2019/1/9 17:38:00 [显示全部帖子]

Dim d1 As Date = Date.Today
Dim d2 = d1.AddMonths(-12)
Dim filter = "年度 + iif(月份>=10,convert(月份,'System.String'),'0'+convert(月份,'System.String')) >= '" & Format(d2, "yyyyMM") & "' and 年度 + iif(月份>=10,convert(月份,'System.String'),'0'+convert(月份,'System.String')) <= '" & Format(d1, "yyyyMM") & "'"
msgbox(filter)
Tables("窗口1_table1").Filter = filter

这个暂时我还不能理解,晕了,能否帮我直接写出来,或者有没有更容易理解点的

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜） tb(0,3) = dt.Compute... 发帖心情

Post By：2019/1/9 18:05:00 [显示全部帖子]

老师.结果还是不对,有其他的代码吗?

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

主题：表达式问题