Foxtable(狐表)用户栏目专家坐堂 → [求助]求改行范围代码


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

主题:[求助]求改行范围代码

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]求改行范围代码  发帖心情 Post By:2016/8/13 9:38:00 [显示全部帖子]

下面的代码,如果是首行 或>第10行,下划线处怎么改?  谢谢!

'''
If e.Col.Name <> "第一列" Then
    Dim r As Row = e.Table.Rows(0)
    Dim str As String = r(e.Col.Name)
    Dim idx As Integer = str.IndexOf(":")
    If idx >= 0 Then
        str = str.SubString(idx+1)
    End If
    
    e.Row(e.Col.name) = str
    
End If

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/8/13 10:12:00 [显示全部帖子]

双击单元格取字符串。
不起作用的范围是:1、第一行或大于第10行;
                         2、第一列

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/8/13 10:37:00 [显示全部帖子]

老师,没起作用。

附件:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:双击事件.table


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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/8/13 10:52:00 [显示全部帖子]

老师,还是没变化。

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/8/13 12:09:00 [显示全部帖子]

谢谢老师,终于改好了。

 回到顶部