Foxtable(狐表) → 用户栏目 → 专家坐堂 → ECXEL打印问题


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

主题：ECXEL打印问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/13 20:38:00 [显示全部帖子]

把模板中另外一个空的sheet删除即可

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 18:04:00 [显示全部帖子]

后台是指什么？如果是主表那没有问题。如果是指没有加载的数据没有办法

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 20:55:00 [显示全部帖子]

可以的，参考：http://www.foxtable.com/webhelp/scr/2631.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 15:41:00 [显示全部帖子]

Dim dr As Row = e.Table.Current
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("结案临时表").FindRow("项目编号 = '" & dr("项目编号") & "'")
    If wz >=0 Then
        Tables("结案临时表").Position = wz
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/22 8:44:00 [显示全部帖子]

<IIF([L]="/", [L], "合格" & chr(10) & chr(13) & "Passed")>
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

对比列是逻辑型的，不需要写代码。

逻辑列没有办法设置这种表示
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果是逻辑列，么有必要赋值，赋值也没有用，自己会计算，如果是数据列，参考

Dim dr As DataRow
dr = DataTables("比对表").DataRows
If dr("实发数量")=dr("本次数量")
dr("对比")=True
Else 
dr("对比")=False
End If

颜色参考：

http://www.foxtable.com/webhelp/scr/0656.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/2 18:01:00 [显示全部帖子]

For Each dr As DataRow In DataTables("比对表").DataRows
    If dr("实发数量")=dr("本次数量")
        dr("对比")=True
    Else
        dr("对比")=False
    End If
Next

主表DrawCell事件
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim sql2 As String = "S elect distinct [姓名] from {考勤} where [异常原因]<>null"
Dim cmd1 As New SQLCommand
cmd1.CommandText = "u pdate {考勤统计} set [是否异常] ='1' where 姓名 in (" & sql2 & "' )"
cmd1.ExecuteNonQuery
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询