- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问如何把某一列的文字用按钮替换成文字框的字呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144647)
-- 发布时间：2019/12/26 10:26:00
-- 请问如何把某一列的文字用按钮替换成文字框的字呢
“结算”列里的否
textbox里输入结算日期
然后用按钮实现把“否”替换成textbox里的结算日期呢
-- 发布时间：2019/12/26 10:30:00
--
比如：
tables("表A").current("结算") = e.form.controls("textbox1").text
-- 发布时间：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月了
-- 发布时间：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
此主题相关图片如下：360截图20191226193220525.jpg-- 发布时间：2019/12/27 8:59:00
--
DataTables("RMT收据").Replacefor("结算",e.form.controls("textbox1").text)
[此贴子已经被作者于2019/12/29 21:27:27编辑过]
-- 发布时间：2019/12/29 10:38:00
--
谢谢搞定了，原来这么简单
一开始直接复制
DataTables("RMT收据").Replacefor("否",e.form.controls("textbox1").text)
发现“否”指的是列，后来改了成列名，后面加入了filter的条件成功了