Foxtable(狐表) → 用户栏目 → 专家坐堂 → beforebuild 事件


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

主题：beforebuild 事件
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/27 9:35:00 [显示全部帖子]

参数用错位置了：http://www.foxtable.com/webhelp/topics/2747.htm

GetValues(ColumnName,Filter,Sort)

ColumnName：列名称，从此列中提取不重复的值。
Filter:     可选参数，指定一个条件表达式，只返回符合此条件的值；请参考表达式的运算符和函数 和 条件表达式
Sort:       可选参数，指定排序列，如果省略，则根据取值列排序，通常无需设置。


If CurrentTable.name = "IL接头任务单"
    Dim tbl As Table = Tables("IL接头任务单")
    If e.Book.TempLate = "IL接头任务单" Then  'TempLate是指模板文件的名称
        Dim WWC As String = "完成核对 = '" & WWC & "'"
if Tables("IL接头任务单").filter > "" then
WWC = WWC & " and " & Tables("IL接头任务单").filter
end if
        Dim cnt As Integer = tbl.DataTable.GetValues( "销售订单号",WWC).count  
        If cnt > 0 
            messagebox.show("本页面存在 " & cnt & " 个未完成核对的行, 请完成核对后再使用此按钮!")
        End If
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/29 10:32:00 [显示全部帖子]

Dim WWC As String = "完成核对 = '" & WWC & "'"
改为
Dim WWC As String = "完成核对 = '未完成核对'"

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/29 11:04:00 [显示全部帖子]

报表事件没有办法取消打印。不要使用菜单的报表生成功能，自己做按钮生成报表：http://www.foxtable.com/webhelp/topics/1145.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/30 10:19:00 [显示全部帖子]

【没有完成填入开料顺序号的工作】是指foxtable的表格没有排序？还是execl报表没有排序？这个代码不会影响execl报表的

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/30 11:33:00 [显示全部帖子]

调试一下
msgbox(e.Book.TempLate)
If e.Book.TempLate = "直身开料任务单" Then  'TempLate是指模板文件的名称
msgbox(CurrentTable.name)
    If CurrentTable.name = "直身开料单" Then
        Tables("直身开料单").Sort = "生产piao号,型号,长度 Desc"
        For r As Integer = 0 To Tables("直身开料单").rows.count - 1
        Dim dr As Row = Tables("直身开料单").Rows(r)
            If dr("开料顺序号") IsNot Nothing Then
            Else
                dr("开料顺序号") = r+1
            End If
msgbox(dr("开料顺序号"))
        Next 
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/30 16:33:00 [显示全部帖子]

If e.Book.TempLate = "直身开料任务单" Then  'TempLate是指模板文件的名称
    If CurrentTable.name = "直身开料单" Then
        Tables("直身开料单").Sort = "生产piao号,型号,长度 Desc"
        For r As Integer = 0 To Tables("直身开料单").rows.count - 1
        Dim dr As Row = Tables("直身开料单").Rows(r)
            dr("开料顺序号") = r+1
        Next 
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/30 17:23:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/1 9:17:00 [显示全部帖子]

请上传实例说明

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/3 12:06:00 [显示全部帖子]

请上传实例测试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/3 14:18:00 [显示全部帖子]

模板发上来测试

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询