Foxtable(狐表)用户栏目专家坐堂 → 计划有时候能实行,有时候没反应,间隔5350000


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

主题:计划有时候能实行,有时候没反应,间隔5350000

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 10:22:00 [显示全部帖子]

5350000 / 1000 = 5350 秒 = 1.48 小时

 

间隔是1个多小时,不执行正常。你的间隔必须在1小时以内,才能在0点后某个时段触发。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 14:03:00 [显示全部帖子]

设置好模板的条件

 

http://www.foxtable.com/webhelp/scr/0201.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 15:29:00 [显示全部帖子]

以下是引用xywl在2017/7/3 14:35:00的发言:

我模板里是有设置有效区和指定打印全部啊

 

 

你肯定设置错了位置。 <All> 要设置在和表名定义相同的那一行,还要设置和<End>相同的那一列。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 18:36:00 [显示全部帖子]

 你报表事件,加入msgbox弹出,看值是否正确。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 11:33:00 [显示全部帖子]

 实例发上来测试。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 11:35:00 [显示全部帖子]

测试,看弹出什么

 

msgbox(e.Book.TempLate)

msgbox(e.Region)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 11:53:00 [显示全部帖子]

以下是引用xywl在2017/7/7 11:45:00的发言:

模板是叫库存明细,细节区叫商品库存明细也对,我做个实例看看有没问题,有问题再上传

谢谢您的指导!

 

你的细节区为什么这样判断?

 

If e.Region = "货品编号" Then


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 16:13:00 [显示全部帖子]

 你可以直接对表进行筛选操作,把重复的数据隐藏起来。如

 

 剔除重复值,参考

 

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列,第三列"
For Each dr As DataRow In DataTables("表A").Select("", cs)
   
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag Then
        If count > 1 Then
            idx &= idx_temp
        End If
        count = 1
        idx_temp = ""
    Else
        count += 1
        idx_temp &= dr("_Identify") & ","
    End If
   
    pdr = dr
Next

If count > 1 Then
    idx &= idx_temp
End If

Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")


 回到顶部