- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 隐藏字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85014)
-- 发布时间：2016/5/15 21:12:00
-- 隐藏字符
查询表有学生姓名列，想把 Tables("窗口1_Table1").Current("学生姓名").Split("-")(0)隐藏,不是删除和移出.求代码?谢谢!
此主题相关图片如下：qq截图20160401210756.png
-- 发布时间：2016/5/15 21:21:00
--
编写DrawCell事件
If e.Col.Name = "学生姓名" AndAlso e.Text.Split("-").Length >= 2 Then
e.Text = e.Text.Split("-")(1)
End If
-- 发布时间：2016/5/15 21:36:00
--
谢谢！
-- 发布时间：2016/9/9 17:09:00
--
如果删除01-，代码怎样改，请指点，谢谢！
-- 发布时间：2016/9/9 17:20:00
--
-- 发布时间：2016/9/9 17:25:00
--
e.Form.controls("Table1").Table.Fill("Select 学期,班级,a.学生编号，a.学生姓名 * {学生基本信息} a Inner JOIN {缴学费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = \'"& XQ &"\' ORDER BY 学期,班级,a.学生编号","数据库", True)
可以在查询时直接删除吗?
-- 发布时间：2016/9/9 17:30:00
--
什么数据库？
-- 发布时间：2016/9/9 17:34:00
--
试试
-- 发布时间：2016/9/9 20:16:00
--
这样不行，“学生姓名”有的4个字，Access 数据库
-- 发布时间：2016/9/9 20:26:00
--
|
编写DrawCell事件
If e.Col.Name = "学生姓名" AndAlso e.Text.Split("-").Length >= 2 Then e.Text = e.Text.Split("-")(1) End If |
自能隐藏，打印时还是有的。
能在打印加代码删除吗？
Dim Book As New XLS.Book(ProjectPath & "报表模板\\点名册.xls")
Dim fl As String = ProjectPath & "Reports\\点名册.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit