- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求改行范围代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88998)
-- 发布时间：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
-- 发布时间：2016/8/13 9:57:00
--
什么事件来的？
-- 发布时间：2016/8/13 10:12:00
--
双击单元格取字符串。
不起作用的范围是：1、第一行或大于第10行；
2、第一列
-- 发布时间：2016/8/13 10:21:00
--
If e.Row.Index > 0 AndAlso e.Row.Index < 9 AndAlso e.Col.Name <> "第一列" Then
Dim r As Row = e.Row
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
-- 发布时间：2016/8/13 10:37:00
--
老师，没起作用。
附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:双击事件.table |
-- 发布时间：2016/8/13 10:44:00
--
If e.Row.Index > 0 AndAlso e.Row.Index < 10 AndAlso e.Col.Name <> "第一列" Then
Dim r As Row = e.Row
Dim str As String = r(e.Col.Name)
Dim idx As Integer = str.Replace("：",":").IndexOf(":")
If idx >= 0 Then
str = str.SubString(idx+1)
End If
e.Row(e.Col.name) = str
End If
-- 发布时间：2016/8/13 10:52:00
--
老师，还是没变化。
-- 发布时间：2016/8/13 11:40:00
--
测试没有问题，3楼不是要求限定了行吗，请到第二行至第十行测试。如果不是，看懂代码自己改
-- 发布时间：2016/8/13 12:09:00
--
谢谢老师，终于改好了。