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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于自动勾选已结账选项问题

共有4332人关注过本帖树形打印复制链接主题：关于自动勾选已结账选项问题

大红袍

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

加好友

发短信

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

Post By：2016/5/31 22:43:00 [显示全部帖子]

逻辑是什么？根据什么条件，做什么啊？

大红袍

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

加好友

发短信

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

Post By：2016/5/31 23:15:00 [显示全部帖子]

这个意思？

Dim d As Date = vars("d1")
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", True, filter)
DataTables("冲压车间工资表").ReplaceFor("已结帐", True, filter)
vars("d1") = d.AddMonths(-1)

大红袍

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

加好友

发短信

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

Post By：2016/6/1 10:22:00 [显示全部帖子]

汗，你代码本身就有问题啊。你直接指定要结账那个月的好了

Dim d As Date = "2016-01-01"

大红袍

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

加好友

发短信

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

Post By：2016/6/1 10:37:00 [显示全部帖子]

--------反

Dim d As Date = vars("d1")
Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)
vars("d1") = d.AddMonths(1)

[此贴子已经被作者于2016/6/1 10:38:55编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/6/1 11:08:00 [显示全部帖子]

取决于给vars("d1")开始赋值是什么啊。

大红袍

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

加好友

发短信

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

Post By：2016/7/4 0:23:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "单价"
        For Each dr As DataRow In DataTables("冲压车间工资表").Select("产品名称 = '" & e.DataRow("产品名称") & "' and 生产工序 = '" & e.DataRow("工序") & "' and (已结账 = false or 已结账 is null)")
            dr("单价") = e.NewValue
        Next
End Select