| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 有关导出样式设置问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4111) |
| -- 作者：baoxyang -- 发布时间：2009/8/28 16:22:00 -- 有关导出样式设置问题？ Style.BorderTop = XLS.LineStyleEnum.Thin 这个是没有问题的 如下代码有问题：提示string 至 integer类型的问题。请教应如何编写？ dim s1 as string = "XLS.LineStyleEnum." & "Thin" Style.BorderTop = s1 以上代码是通过变量来赋值，以上只是例子，望各位老兄指点！谢谢！！ |
| -- 作者：yangming -- 发布时间：2009/8/28 16:29:00 -- XLS.LineStyleEnum型枚举,不是字符型，当然会出错了，呵 |
| -- 作者：baoxyang -- 发布时间：2009/8/28 16:40:00 -- 如要使用变量来赋值，如何编写？杨兄可否指点下？谢谢！！ |
| -- 作者：yangming -- 发布时间：2009/8/28 17:05:00 -- 窗口加一个样式的组合框，我只做了二种样式，你可以自己增加 Dim cm As XLS.LineStyleEnum Select Case e.Form.Controls("ComboBox1").Value Case "虚线" cm= XLS.LineStyleEnum.Dashed Case "细线" cm= XLS.LineStyleEnum.Thin End Select Style.BorderTop = cm Style.BorderBottom = cm Style.BorderLeft = cm Style.BorderRight = cm [此贴子已经被作者于2009-8-28 17:05:31编辑过]
|
| -- 作者：baoxyang -- 发布时间：2009/8/28 17:33:00 -- 谢谢杨兄！ |
| -- 作者：yangming -- 发布时间：2009/8/28 17:55:00 -- 以下是引用baoxyang在2009-8-28 17:33:00的发言：
谢谢杨兄！ 是杨姐，呵呵 |
| -- 作者：baoxyang -- 发布时间：2009/8/28 18:07:00 -- 哈哈！！NO |
| -- 作者：yangming -- 发布时间：2009/8/28 19:00:00 -- 以下是引用baoxyang在2009-8-28 18:07:00的发言：
哈哈！！NO 什么意思啊？ |