以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何把某一列的文字用按钮替换成文字框的字呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144647)

--  作者:magudo
--  发布时间:2019/12/26 10:26:00
--  请问如何把某一列的文字用按钮替换成文字框的字呢

“结算”列里的否

textbox里输入结算日期

然后用按钮实现把“否”替换成textbox里的结算日期呢


--  作者:有点蓝
--  发布时间:2019/12/26 10:30:00
--  
比如:
tables("表A").current("结算") = e.form.controls("textbox1").text

--  作者:magudo
--  发布时间:2019/12/26 23:01:00
--  
以下是引用有点蓝在2019/12/26 10:30:00的发言:
比如:
tables("表A").current("结算") = e.form.controls("textbox1").text

就是结算列里面还有其他的日期,“10月”,”11月”,然后没有结算的都是“否”,等到12月底结算的时候

我想实现一键替换“否”为“12月”这个“12月”是输入在textbook里,下个月就是替换成1月了

 


--  作者:magudo
--  发布时间:2019/12/27 8:32:00
--  
刚刚研究了一下别人的贴
写出来这个

Dim r As Row = Tables("RMT收据").Current
For  Each dc As DataCol In DataTables("RMT收据").Datacols 
    If dc.isString Then
        r(dc.name) = r(dc.name).Replace("否",e.form.controls("textbox1").text)
     End If

Next

但是只能一个一个的替换,不能批量替换
图片点击可在新窗口打开查看此主题相关图片如下:360截图20191226193220525.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/12/27 8:59:00
--  
DataTables("RMT收据").Replacefor("结算",e.form.controls("textbox1").text)

[此贴子已经被作者于2019/12/29 21:27:27编辑过]

--  作者:magudo
--  发布时间:2019/12/29 10:38:00
--  
谢谢搞定了,原来这么简单
一开始直接复制
DataTables("RMT收据").Replacefor("否",e.form.controls("textbox1").text)
发现“否”指的是列,后来改了成列名,后面加入了filter的条件成功了