Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个报错是不是不能识别?


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

主题：这个报错是不是不能识别?
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		这个报错是不是不能识别?  发帖心情 Post By：2019/2/15 15:44:00 [显示全部帖子]

  Case "09:30-10:00", "10:00-10:30"
                        If e.Row.Isnull(e.Col.Name) = False Then
                            Dim dr As DataRow = e.Table.DataTable.find("(" & e.Col.Name & "= '" & e.Row(e.Col.Name) & "') And 预约医生='" & e.row("预约医生") & "'")
                            If dr IsNot Nothing Then
                                e.Style = "b"
                            End If
                        End If



无法解释位置 4 的标记“:”。
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/15 15:51:00 [显示全部帖子]

我试试
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/15 15:57:00 [显示全部帖子]

老大 

Dim dr As DataRow = e.Table.DataTable.find("([" & e.Col.Name & "]= '" & e.Row(e.Col.Name) & "') And 预约医生='" & e.row("预约医生") & "'")

我想第一个颜色不变色,后面找到的再变色,应该怎么改?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/15 16:08:00 [显示全部帖子]

不好做实例,列名全部动态生成的,我上传个截图.




图片点击可在新窗口打开查看此主题相关图片如下：tt截图未命名.jpg
图片点击可在新窗口打开查看

就是这个意思



[此贴子已经被作者于2019/2/15 16:08:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/15 16:24:00 [显示全部帖子]

Select Case e.Col.Name
                    Case "预约医生"
                        e.Style = "a"
                    Case Else
                        e.Style = "a"
                        If e.Row.IsNull(e.Col.Name) = False Then
                            For Each Cl As Col In e.Table.Cols
                                Select Case Cl.Name
                                    Case "预约医生"
                                    Case Else
                                        Dim dr As DataRow = e.Table.DataTable.Find("([" & Cl.Name & "]= '" & e.Row(e.Col.Name) & "') And 预约医生='" & e.Row("预约医生") & "'")
                                        If dr IsNot Nothing Then
                                            e.Style = "c"
                                        End If
                                End Select
                            Next
                        End If
                End Select

我这样写还是全部变色了
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/15 16:35:00 [显示全部帖子]

以下是引用逛逛在2019/2/15 16:32:00的发言：
和单元格注释一样处理啊，加一个辅助列，记录本行各个单元格的样式值


没怎么明白你这个意思
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询