- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]Excel模板设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77956)
-- 发布时间：2015/11/29 11:24:00
-- [求助]Excel模板设置
老师，如何设置每页打印30行，每页都有表头。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:狂犬病疫苗出入库记录.xls |
-- 发布时间：2015/11/29 11:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:狂犬病疫苗出入库记录.xls |
-- 发布时间：2015/11/29 16:21:00
--
谢谢！
-- 发布时间：2015/11/30 22:28:00
--
红袍老师，删除行出现错误提示，还出现一把大红叉，请您看看什么问题。
此主题相关图片如下：qq图片20151130222156.png
-- 发布时间：2015/11/30 22:30:00
--
看你表事件写了哪些代码，分别注释掉，看哪里有问题。
做不好，就上传项目
-- 发布时间：2015/11/30 22:31:00
--
好的
-- 发布时间：2015/12/1 7:36:00
--
红袍老师，就是
DrawCell 的代码有问题，不知道问题出在哪，如果table 是空的，新增行再删除没问题，但是如果table不是空的，删除行就出现上面的错误。请您指点。
If e.Table.Current IsNot Nothing Then
If e.Col.IsDate AndAlso e.Col.Name = "第二次按程序接种日期" AndAlso e.Row.IsNull("第二次按程序接种日期") = False Then
If e.Row("患者去向") <> "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True Then
e.Style = "带回"
End If
If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True AndAlso Date.today <= e.Row("第二次按程序接种日期") Then
e.Style = "到期"
End If
If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True AndAlso Date.today > e.Row("第二次按程序接种日期") Then
e.Style = "顺延"
e.Text = "过期未种" & e.Row("第二次按程序接种日期")
End If
If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = False AndAlso e.Row("第二次实际接种日期") > e.Row("第二次按程序接种日期") Then
e.Text = "过期已种" & e.Row("第二次实际接种日期")
End If
End If
End If
-- 发布时间：2015/12/1 9:23:00
--
代码没问题，不是这里有问题。
实例上传上来。
-- 发布时间：2015/12/1 9:37:00
--
红袍老师，如果把这个删除了再删除行就没问题了，在菜单里面删除没问题，就是在窗口里面删除不行。我的这个项目有200多兆。能不能远程一下。谢谢！
-- 发布时间：2015/12/1 9:39:00
--
那你把drawcell事件的代码，部分注释，定位一下哪里开始出问题。