Foxtable(狐表)用户栏目专家坐堂 → 隐藏字符


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

主题:隐藏字符

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/9/9 17:09:00 [显示全部帖子]

如果删除01-,代码怎样改,请指点,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By: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)

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


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/9/9 20:16:00 [显示全部帖子]

SubString(a.学生姓名,2,len(a.学生姓名) - 3) as 学生姓名

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

[此贴子已经被作者于2016/9/9 20:16:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/9/9 22:49:00 [显示全部帖子]

谢谢

 回到顶部