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


  共有4306人关注过本帖树形打印复制链接

主题：关于自动勾选已结账选项问题
美女呀，离线，留言给我吧！
意悠心轻
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		关于自动勾选已结账选项问题  发帖心情 Post By：2016/5/31 22:10:00 [只看该作者]

    我想按结账按钮后，冲压车间工资表已结账列自动勾选符合结账条件行。
[此贴子已经被作者于2016/6/26 15:47:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/31 22:43:00 [只看该作者]

逻辑是什么？根据什么条件，做什么啊？
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2016/5/31 23:11:00 [只看该作者]

结账按钮里已编好了条件了，只需要符合条件就自动勾选已结账列，我找过相关视频和操作说明，找不到，如果你找到可把连接给我，我想想。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2016/5/31 23:25:00 [只看该作者]

对，是这种效果了，原来还用上面的ReplaceFor，另外反结账我用下面的代码，却没反应。

Dim d As Date = vars("d2")
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)
vars("d2") = d.AddMonths(-1)
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2016/5/31 23:29:00 [只看该作者]

反结账不对，应从最后的月向上反结，即先反4月，然后3月、2月、1月，结账才按1月、2月、3月、4月顺序。

 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2016/5/31 23:40:00 [只看该作者]

反结账按钮只反了1、2月份，3月没反应了，按钮有问题，我关闭重新打开，又能正常结账、反结账了，但再操作一次结账、反结账，没反应了！

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/6/1 9:02:00 [只看该作者]

结账

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


反结账
Dim d As Date = vars("d2")
Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"
If DataTables("冲压车间工资表").Find(filter) IsNot Nothing Then
    DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
    DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)
    Vars("d1") = d
    vars("d2") = d.AddMonths(-1)
End If
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2016/6/1 10:19:00 [只看该作者]

以下是引用Hyphen在2016/6/1 9:02:00的发言：
结账

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


反结账
Dim d As Date = vars("d2")
Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"
If DataTables("冲压车间工资表").Find(filter) IsNot Nothing Then
    DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
    DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)
    Vars("d1") = d
    vars("d2") = d.AddMonths(-1)
End If

重复操作一下，再结账，1月份无法结账。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"
 回到顶部
总数 59 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询