以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]目录树求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123850)
--  作者：有点蓝
--  发布时间：2018/8/24 15:04:00
--  

[此贴子已经被作者于2018/8/24 15:04:33编辑过]
--  作者：有点蓝
--  发布时间：2018/8/24 15:11:00
--  
添加按钮事件

dim r as row = tables("ZTBH").rows(tables("ZTBH").rows.count - 1)
dim r1 as row = tables("ZTBH").addnew
if r("KJY") = 12 then
r1("KJN") = r("KJN") + 1
r1("KJY") = 1
else
r1("KJN") = r("KJN")
r1("KJY") = r("KJY") +1
end if
--  作者：有点蓝
--  发布时间：2018/8/24 16:35:00
--  
没看懂你要做什么？