以文本方式查看主题

-  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
--  
谢谢高手了~