| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何自动标注下一行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41063) |
| -- 作者：1234567 -- 发布时间：2013/10/10 15:16:00 -- 如何自动标注下一行 当我单元格内输入内容后,系统能自动在该列的下一行输入一个设定值,不知道能否实现? |
| -- 作者：Bin -- 发布时间：2013/10/10 15:22:00 -- 你可以这样做 在AfterEdit事件中 If e.Col.name="第二列" AndAlso e.Row.IsNull("第二列")=False Then If e.Row.Index<e.Table.Rows.count Then If e.Table.Rows(e.Row.Index+1).IsNull("第二列") Then e.Table.Rows(e.Row.Index+1)("第二列")="设定值" End If End If End If |
| -- 作者：1234567 -- 发布时间：2013/10/10 15:29:00 -- 太谢谢了，如果我想在特定列的下一行输入设定值，是否可以？ |
| -- 作者：1234567 -- 发布时间：2013/10/10 16:02:00 -- 在最后一行输入值时，会出现 《调用的目标发生了异常。》 提示，怎么解决？
|
| -- 作者：Bin -- 发布时间：2013/10/10 16:05:00 -- If e.Col.name="第二列" AndAlso e.Row.IsNull("第二列")=False Then If e.Row.Index<e.Table.Rows.count-1 Then If e.Table.Rows(e.Row.Index+1).IsNull("第二列") Then e.Table.Rows(e.Row.Index+1)("第二列")="设定值" End If End If End If 参考代码任何列 任何值都可以啊.你变动一下即可. 新手建议必须要先按部就班看帮助,否则别人帮你你也无法领悟!
|