| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 遍历表头统一设计字体怎么设计？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176037) |
| -- 作者：wukangppbb -- 发布时间：2022/3/28 15:19:00 -- 遍历表头统一设计字体怎么设计？ For Each c As Col In Tables("数据库").Cols Dim fnt As New Font("黑体",12) Tables("数据库").SetHeaderCellFont("c",fnt) Next |
| -- 作者：有点蓝 -- 发布时间：2022/3/28 15:27:00 -- Tables("数据库").SetHeaderCellFont(c.name,fnt) |
| -- 作者：wukangppbb -- 发布时间：2022/3/28 15:47:00 -- 多层表头 我试了一下，如果是多层表头好像只对第一次层的表头起作用，怎么对各层表头都起作用的？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/28 15:48:00 -- 参考：http://www.foxtable.com/webhelp/topics/1550.htm Tables("数据库").SetHeaderCellFont(c.name,fnt) Tables("数据库").SetHeaderCellFont(c.name,fnt,1)
|
| -- 作者：wukangppbb -- 发布时间：2022/3/28 17:18:00 -- 怎么缩写代码？ 老师，我现在是有六列，分别是“一级业务流程”，“二级业务流程”，“三级业务流程”，“四级业务流程”，“五级业务流程”，“六级业务流程” 我现在要做的是从“流程名称”来反查"流程编号"，这样我就要写6段代码，怎么用一段代码代替呢？ Dim dr As DataRow = e.DataRow If e.DataCol.Name = "流程名称" Then If e.NewValue Is Nothing Then e.DataRow("流程名称") = Nothing Else dr = DataTables("流程架构维护").Find("[一级业务流程]= \'" & e.NewValue & "\'") If dr IsNot Nothing Then e.DataRow("流程编号") = dr("流程编号") End If End If End If |
| -- 作者：有点蓝 -- 发布时间：2022/3/28 17:35:00 -- 这种表结构没有办法，只能这样。 |
| -- 作者：wukangppbb -- 发布时间：2022/3/28 23:27:00 -- 是不是换成二维表更适合查找匹配？ 是不是换成二维表更适合查找匹配？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/28 23:30:00 -- 所有表格默认都是二维表。具体问题请上传实例，并详细描述需要做什么功能 |