主题：隐藏字符

查询表有学生姓名列，想把 Tables("窗口1_Table1").Current("学生姓名").Split("-")(0)隐藏,不是删除和移出.求代码?谢谢!

此主题相关图片如下：qq截图20160401210756.png

编写DrawCell事件

If e.Col.Name = "学生姓名" AndAlso e.Text.Split("-").Length >= 2 Then

    e.Text = e.Text.Split("-")(1)

End If

e.Form.controls("Table1").Table.Fill("Select  学期,班级,a.学生编号，a.学生姓名 * {学生基本信息} a Inner JOIN {缴学费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = '"& XQ &"' ORDER BY 学期,班级,a.学生编号","数据库", True)

可以在查询时直接删除吗?

这样不行，“学生姓名”有的4个字，Access 数据库

自能隐藏，打印时还是有的。

能在打印加代码删除吗？

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