Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表如何生成中文引号


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

主题：专业报表如何生成中文引号
美女呀，离线，留言给我吧！
34772849
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：752 威望：0 精华：0 注册：2012/2/6 19:10:00 		专业报表如何生成中文引号  发帖心情 Post By：2015/4/23 9:44:00 [只看该作者]

rt.Cells(24,2).Text = "当月包保单位发生触碰安全风险“"红线"”的"

红线两字想用中文引号，可是一直是英文引号，应该怎么改代码？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 9:45:00 [只看该作者]


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


加好友 发短信
等级：幼狐 帖子：69 积分：752 威望：0 精华：0 注册：2012/2/6 19:10:00 		  发帖心情 Post By：2015/4/23 9:51:00 [只看该作者]

'''
Dim 姓名 As String
Dim 职务 As String
Dim 包保单位 As String
With RibbonTabs("Common")("考核表")
    姓名 = .Items("姓名").text
    职务 = .Items("职务").text
    包保单位 = .Items("包保单位").text
End With
Dim doc As New PrintDoc  '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef
rt.CellStyle.Spacing.All = 1
rt.RepeatGridLinesVert = True
rt.Cells(0,0).text = "安全科月度安全生产责任制考核表"
rt.Cells(0,0).SpanCols = 11
rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,0).Style.Font = New Font("黑体", 18, FontStyle.Bold)
rt.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white)
rt.Cells(1,0).text = "姓名:" & 姓名
rt.Cells(1,0).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
rt.Cells(1,2).text = "职务：" & 职务
rt.Cells(1,2).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
rt.Cells(1,4).text = "包保单位:" '通过左边空格数量来调整副标题位置
rt.Cells(1,5).text = 包保单位
rt.Cells(1,5).SpanCols = 4 '合并地二行全部单元格,用于显示副标题
rt.Cells(1,9).text = Format(Date.Today(), "yyyy年MM月dd日")
rt.Cells(1,9).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Cells(1,2).Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Cells(1,4).Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Cells(1,5).Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Cells(1,9).Style.TextAlignHorz = prt.AlignHorzEnum.right
rt.cells(1,0).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.cells(1,2).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.cells(1,4).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.cells(1,5).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.cells(1,9).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.cells(1,0).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.cells(1,2).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.cells(1,4).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.cells(1,5).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.cells(1,9).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.Cells(1,0).Style.Font = New Font("宋体", 10)
rt.Cells(1,2).Style.Font = New Font("宋体", 10)
rt.Cells(1,4).Style.Font = New Font("宋体", 10)
rt.Cells(1,5).Style.Font = New Font("宋体", 10)
rt.Cells(1,9).Style.Font = New Font("宋体", 10)
rt.Rows(1).Height = 10 '设置第二行的高度,拉开和表格主体的距离.
'设置列标题
rt.Cols(0).Width = 10
rt.Cols(1).Width = 10
rt.Cols(2).Width = 10
rt.Cols(3).Width = 15
rt.Cols(4).Width = 16
rt.Cols(5).Width = 15
rt.Cols(6).Width = 10
rt.Cols(7).Width = 15
rt.Cols(8).Width = 15
rt.Cols(9).Width = 15
rt.Cols(10).Width = 15
Doc.PageSetting.LeftMargin = 20 '设置左边距
Doc.PageSetting.RightMargin = 20 '设置右边距
Doc.PageSetting.TopMargin = 15 '设置上边距
Doc.PageSetting.BottomMargin = 15 '设置下边距
rt.cells(2,2).SpanCols = 6
rt.cells(2,0).Text = "考核项目"  '设置第一行第一个单元格的内容
rt.Cells(2,1).Text = "序号"  '设置第一行第四个单元格的内容
rt.Cells(2,2).Text= "量化考核内容"
rt.Cells(2,8).Text = "扣分标准"

Dim mj As Integer
For mj = 2 To 26
rt.Cells(mj,8).SpanCols = 2
Next
rt.Cells(2,10).Text = "完成情况"
rt.Cells(3,0).SpanRows = 16 '第1行第5个单元格向下合并6行
rt.Cells(3,0).Text= "履行职责"
rt.Cells(3,1).Text = "1"
rt.cells(3,2).SpanCols = 6
rt.Cells(3,2).Text = "日常要深入车间（中间站），加强对职工的业务指导，解决生产中的技术难题 ，提高全站安全管理水平。每2月对管内各站、车间覆盖检查一遍，南三小站每月最少到1站。"
rt.Cells(3,8).Text = "未落实扣5分"
rt.Cells(3,10).Text = ""
rt.Cells(4,1).Text = "2"
rt.cells(4,2).SpanCols = 6
rt.Cells(4,2).Text = "每月下现场，对行车主要岗位巡视检查不得少于13天，其中："
rt.Cells(4,8).Text = "每少1天扣5分"
rt.Cells(4,10).Text = ""
rt.Cells(5,1).Text = "3"
rt.cells(5,2).SpanCols = 6
rt.Cells(5,2).Text = "前夜巡视不少于2天；"
rt.Cells(5,8).Text = "每少1天扣5分"
rt.Cells(5,10).Text = ""
rt.Cells(6,1).Text = "4"
rt.cells(6,2).SpanCols = 6
rt.Cells(6,2).Text = "后半夜巡视不少于6天（0至2点、2至4点、4至6点各不少于2次）；"
rt.Cells(6,8).Text = "每少1天扣5分"
rt.Cells(6,10).Text = ""
rt.Cells(7,1).Text = "5"
rt.cells(7,2).SpanCols = 6
rt.Cells(7,2).Text = "每月到包保单位不少于4天（其中星期五、双休日不少于2天，）；节假日到包保单位，小长假不少于1天，大长假不少于2天。"
rt.Cells(7,8).Text = "每少1天扣5分"
rt.Cells(7,10).Text = ""
rt.Cells(8,1).Text = "6"
rt.cells(8,2).SpanCols = 6
rt.Cells(8,2).Text = "发现违章、违纪，不少于6件。其中："
rt.Cells(8,8).SpanRows = 3
rt.Cells(8,8).Text = "每少1件扣15分,少2件,扣30分,少3件,扣40分。"
rt.Cells(8,10).Text = ""
rt.Cells(9,1).Text = "7"
rt.cells(9,2).SpanCols = 6
rt.Cells(9,2).Text = "现场违章、违纪，不少于4件；"
rt.Cells(9,10).Text = ""
rt.Cells(10,1).Text = "8"
rt.cells(10,2).SpanCols = 6
rt.Cells(10,2).Text = "调车作业违章、违纪，不少于2件；"
rt.Cells(10,10).Text = ""
rt.Cells(11,1).Text = "9"
rt.cells(11,2).SpanCols = 6
rt.Cells(11,2).Text = "每月发现包保单位违章不少于1件。"
rt.Cells(11,8).Text = "每少1件扣5分"
rt.Cells(11,10).Text = ""
rt.Cells(12,1).Text = "10"
rt.cells(12,2).SpanCols = 6
rt.Cells(12,2).Text = "每月检查管内车站调车作业，不少于6批，其中监控切割正线调车，不少于2批 ；"
rt.Cells(12,8).Text = "每少1次扣2分"
rt.Cells(12,10).Text = ""
rt.Cells(13,1).Text = "11"
rt.cells(13,2).SpanCols = 6
rt.Cells(13,2).Text = "每月利用监控设备、调听录音或现场接发列车标准执行情况不少于3次，每次不少于5列（其中旅客列车2列）；"
rt.Cells(13,8).Text = "每少1次扣2分"
rt.Cells(13,10).Text = ""
rt.Cells(14,1).Text = "12"
rt.cells(14,2).SpanCols = 6
rt.Cells(14,2).Text = "每月对车辆防溜检查，不少于8次；"
rt.Cells(14,8).Text = "每少1次扣2分"
rt.Cells(14,10).Text = ""
rt.Cells(15,1).Text = "13"
rt.cells(15,2).SpanCols = 6
rt.Cells(15,2).Text = "每月对专用线检查，不少于3次；"
rt.Cells(15,8).Text = "每少1次扣2分"
rt.Cells(15,10).Text = ""
rt.Cells(16,1).Text = "14"
rt.cells(16,2).SpanCols = 6
rt.Cells(16,2).Text = "每月对装卸作业检查，不少于1次；"
rt.Cells(16,8).Text = "每少1次扣2分"
rt.Cells(16,10).Text = ""
rt.Cells(17,1).Text = "15"
rt.cells(17,2).SpanCols = 6
rt.Cells(17,2).Text = "每月检查车机联控工作，不少于6次；"
rt.Cells(17,8).Text = "每少1次扣2分"
rt.Cells(17,10).Text = ""
rt.Cells(18,1).Text = "16"
rt.cells(18,2).SpanCols = 6
rt.Cells(18,2).Text = "每月添乘机车检查接发列车情况不少于1次；"
rt.Cells(18,8).Text = "未落实,扣5分"
rt.Cells(18,10).Text = ""
rt.Cells(19,0).SpanRows = 3 '第1行第5个单元格向下合并6行
rt.Cells(19,0).Text= "工作绩效"
rt.Cells(19,1).Text = "17"
rt.cells(19,2).SpanCols = 6
rt.Cells(19,2).Text = "分管工作发生“"工作过失"”，被上级部门通报批评。"
rt.Cells(19,8).Text = "扣10至20分"
rt.Cells(19,10).Text = ""
rt.Cells(20,1).Text = "18"
rt.cells(20,2).SpanCols = 6
rt.Cells(20,2).Text = "发生信息“"梗阻"”，对本月布置的重点工作、阶段性工作落实不力。"
rt.Cells(20,8).Text = "扣10至20分"
rt.Cells(20,10).Text = ""
rt.Cells(21,1).Text = "19"
rt.cells(21,2).SpanCols = 6
rt.Cells(21,2).Text = "对本单位发生的应急问题处置不当，造成不良影响。"
rt.Cells(21,8).Text = "扣10至20分"
rt.Cells(21,10).Text = ""
rt.Cells(22,0).SpanRows = 6 '第1行第5个单元格向下合并6行
rt.Cells(22,0).Text= "安全考核"
rt.Cells(22,1).Text = "20"
rt.cells(22,2).SpanCols = 6
rt.Cells(22,2).Text = "当月包保单位被路局、车站下发《安全预警通知书》"
rt.Cells(22,8).Text = "每件扣10分"
rt.Cells(22,10).Text = ""
rt.Cells(23,1).Text = "21"
rt.cells(23,2).SpanCols = 6
rt.Cells(23,2).Text = "当月包保单位被路局下发《安全监察指令通知书》"
rt.Cells(23,8).Text = "每次扣8分"
rt.Cells(23,10).Text = ""
rt.Cells(24,1).Text = "22"
rt.cells(24,2).SpanCols = 6
rt.Cells(24,2).Text = "当月包保单位发生触碰安全风险“"红线"”的"
rt.Cells(24,8).Text = "每次扣8分"
rt.Cells(24,10).Text = ""
rt.Cells(25,1).Text = "23"
rt.cells(25,2).SpanCols = 6
rt.Cells(25,2).Text = "当月包保单位安全评估小组最后一名"
rt.Cells(25,8).Text = "每次扣5分"
rt.Cells(25,10).Text = ""
rt.Cells(26,1).Text = "24"
rt.cells(26,2).SpanCols = 6
rt.Cells(26,2).Text = "当月包保单位被路局对话会通报批评"
rt.Cells(26,8).Text = "每次扣3分"
rt.Cells(26,10).Text = ""
rt.Cells(27,1).Text = "25"
rt.cells(27,2).SpanCols = 6
rt.Cells(27,2).Text = "当月包保单位被路局下发的《安全监察通知书》"
rt.Cells(27,8).Text = "每次扣3分"
rt.Cells(27,10).Text = ""
Doc.Preview() '预览报表

以上代码生成的还是英文引号
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 9:52:00 [只看该作者]

不是你输入 ''' 就变中文引号了. 是输入'''后允许你输入中文引号

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


加好友 发短信
等级：幼狐 帖子：69 积分：752 威望：0 精华：0 注册：2012/2/6 19:10:00 		  发帖心情 Post By：2015/4/23 9:56:00 [只看该作者]

我的意思是其他中文符号都可以，但是就是引号一直显示的是英文的

 

[此贴子已经被作者于2015/4/23 9:56:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 9:56:00 [只看该作者]

不会,只要你输入的是中文的,显示的就是中文的

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


加好友 发短信
等级：幼狐 帖子：69 积分：752 威望：0 精华：0 注册：2012/2/6 19:10:00 		  发帖心情 Post By：2015/4/23 10:02:00 [只看该作者]

直接输入中文引号就如图所示


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 10:02:00 [只看该作者]

需要2个的 ""红线"" 

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


加好友 发短信
等级：幼狐 帖子：69 积分：752 威望：0 精华：0 注册：2012/2/6 19:10:00 		  发帖心情 Post By：2015/4/23 10:08:00 [只看该作者]

2个显示的就是英文引号啊，不是中文引号啊

 


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 10:10:00 [只看该作者]

是中文的吧.你要什么样的引号.你复制再黏贴回去吧

＂＂　这种? 
“ ” 这种?
 回到顶部
总数 19 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.03906 秒, 4 次数据查询