以文本方式查看主题

-  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)

--  作者:miaoqingqing
--  发布时间: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

--  作者:miaoqingqing
--  发布时间: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

--  作者:miaoqingqing
--  发布时间: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
--  

把多值拆分(Split)到集合里,从集合里删除,然后把集合重新生成多值字符串(Join)
--  作者:miaoqingqing
--  发布时间: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)

--  作者:miaoqingqing
--  发布时间: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