- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多值生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174039)
-- 发布时间：2021/12/28 20:07:00
-- [求助]多值生成
求助，窗口按钮标题“中国”，如果表A当前行第一列多值不含“中国”，就加入“中国”
-- 发布时间：2021/12/28 20:19:00
--
if not ("," & tables("表A").current("第一列") & "," like "*," & forms("窗口1").controls("按钮1").text & ",*") then
tables("表A").current("第一列") = tables("表A").current("第一列") & ",中国"
end if
-- 发布时间：2022/1/11 9:21:00
-- 回复：（有点蓝）if not ("," & tables("表A").cu...
蓝主，如果 tables("表A").current("第一列") 多值中已经含有 中国，就不执行，上面代码怎么修改？
-- 发布时间：2022/1/11 9:39:00
--
if not ("," & tables("表A").current("第一列") & "," like "*," & forms("窗口1").controls("按钮1").text & ",*") andalso not ("," & tables("表A").current("第一列") & "," like "*中国*") then |
-- 发布时间：2022/1/11 10:31:00
-- 回复：（有点蓝）if not ("," & tables("表A").cu...
蓝主，求助如果多值中含有 中国，要删除，下面代码怎么修改
If e.Form.Controls("RadioButton1").Checked = True Then
If not ("," & Tables("表A").current("第一列") & "," Like "*," & forms("窗口1").controls("RadioButton1").text & ",*") AndAlso not ("," & Tables("表A").current("第一列") & "," Like "*中国*") Then
Tables("表A").current("第一列") = Tables("表A").current("第一列") & ",中国"
End If
End If
If e.Form.Controls("RadioButton1").Checked = False Then
If not ("," & Tables("表A").current("第一列") & "," Like "*," & forms("窗口1").controls("RadioButton1").text & ",*") AndAlso ("," & Tables("表A").current("第一列") & "," Like "*中国*") Then
Tables("表A").current("第一列").Value = Tables("表A").current("第一列").Value.trim("中国") \'不懂怎么删除已存在的 中国
End If
-- 发布时间：2022/1/11 10:44:00
--
-- 发布时间：2022/1/11 11:48:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/to...
蓝主，这个有点难，论坛里有类似案例链接吗？
-- 发布时间：2022/1/11 11:58:00
--
dim s as string = "1,2,3,4"
dim lst as new list(of string)
lst.addrange(s.split(","))
lst.remove("2")
dim s2 as string = string.join(",",lst.toarray)
msgbox(s2)
-- 发布时间：2022/1/14 14:46:00
-- 回复：（有点蓝）dim s as string = "1,2,3,4"dim lst...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按钮标题.foxdb |
蓝主，折腾了很久还是不懂，根据窗口CheckBox选择否执行，对表A第一列多值，增加或或删除（CheckBox标题）
同时行切换时，如果表A第一列值 CheckBox标题存在,窗口CheckBox 就为选择状态，颜色突显
-- 发布时间：2022/1/14 15:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按钮标题 (2).zip |