以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮填入数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135166)

--  作者:yangwenghd
--  发布时间:2019/5/19 18:56:00
--  按钮填入数据
老师,如果点击按钮,窗口1的表1的第一列的为不0的行改为0怎么写呀,
比如,第一列不是0,就改为0,如果第一行是0,就判断这一列不为0的第一行,然后改为0,感谢 感谢 

--  作者:有点甜
--  发布时间:2019/5/19 22:55:00
--  

 

DataTables("表A").replacefor("第一列", 0)

 


--  作者:yangwenghd
--  发布时间:2019/6/2 20:36:00
--  
感谢 老师  ,为什么会显示没有窗口表呢,感谢 感谢 
DataTables("财务汇总窗口_Table26").replacefor("负债_变累", 0)

--  作者:有点甜
--  发布时间:2019/6/3 8:51:00
--  

那你改成

 

Tables("财务汇总窗口_Table26").datatable.replacefor("负债_变累", 0)
 

--  作者:yangwenghd
--  发布时间:2019/6/6 22:42:00
--  
谢谢,这个给可以是不是0的第一行为0吗?不是整列。感谢 ,比如一行不是0就改为0,如果第一行是0.就把这一列不为0的行改为0,感谢 感谢
--  作者:有点蓝
--  发布时间:2019/6/8 9:19:00
--  
没看懂,截图说明一下
--  作者:yangwenghd
--  发布时间:2019/6/23 23:39:00
--  
老师,就是把变动列不为0的第一行改为0,现在不未0的第一行是第三行246,改为0,
如果第三行为0,则就把228.55改为0,就是在原来的基础上,把本来不是0的第一行改为0感谢 感谢 
比如点击按钮查看 变动列那行第一个(系统序号顺序)不0 然后把这行改为0.如果一行都没有,那就是第一行改为0,感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190623233630.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/6/24 10:34:00
--  

 

Dim i As Integer = Tables("表A").findrow("变动 <> 0")

Tables("表A").Rows(i)("变动") = 0