以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]请教大家一个问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44511)
|
-- 作者:happly145
-- 发布时间:2014/1/2 16:22:00
-- [原创]请教大家一个问题
如何实现这个功能?代码怎么 此主题相关图片如下:未命名.jpg
实现呀~(跨单元格,数字递增+1)
|
-- 作者:Bin
-- 发布时间:2014/1/2 16:24:00
--
不是看得很懂.行也不是对应的? 能否描述一下具体要实现什么效果?
|
-- 作者:y2287958
-- 发布时间:2014/1/2 16:28:00
--
这个好办找出上一行 然后+1
|
-- 作者:Bin
-- 发布时间:2014/1/2 16:32:00
--
第一列的值是上一行第二列的值+1吗?
这个不难的,你想通过按钮实现,还是增加行自动实现? 上个例子吧
|
-- 作者:happly145
-- 发布时间:2014/1/2 22:33:00
--
是呀 ,想通过按钮完成~怎么实现呀~第一列的值是上一行第二列的值+1
|
-- 作者:y2287958
-- 发布时间:2014/1/2 22:36:00
--
好歹上个例子
|
-- 作者:有点酸
-- 发布时间:2014/1/2 22:38:00
--
按钮的代码: Dim t as Table = Tables("表A")
if t.position > 0 Then
t.Current("第一列") = t.rows(t.position - 1)("第二列") + 1
end if
记得将第一列和第二列的数据类型设置为数值型
|
-- 作者:nothing
-- 发布时间:2014/1/2 22:42:00
--
Tables("表A").AddNew CurrentTable.Current("第二列") = CurrentTable.Rows(CurrentTable.Current.Index-1)("第三列")+1
|
-- 作者:happly145
-- 发布时间:2014/1/3 14:21:00
--
谢谢高手了~
|