以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  系统这个功能,代码怎么写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109068)

--  作者:liyanfeng
--  发布时间:2017/11/3 15:28:00
--  系统这个功能,代码怎么写?
系统(选择列)这个功能,代码怎么写的
图片点击可在新窗口打开查看此主题相关图片如下:67f71248574bf9154746c8f3b4e4061.png
图片点击可在新窗口打开查看
勾选会在后面添加字段名|列宽,取消勾选又会删除///?????????

--  作者:有点蓝
--  发布时间:2017/11/3 16:56:00
--  
Dim str As String = "字段名1|80|字段名2|90|字段名3|100"
Dim cn As String = "字段名3"
Dim idx As Integer = str.IndexOf(cn)
If idx > -1 Then
    Dim str2 As String = str.SubString(idx + cn.Length + 1)
    Dim idx2 As Integer = str2.IndexOf("|")
    If idx2 > -1 Then
        cn = cn & "|" & str2.SubString(0,idx2+1)
    Else
        cn = str.SubString(IIF(idx = 0,idx,idx-1))
    End If
    Output.Show(cn)
End If
str = str.Replace(cn,"")
Output.Show(str)

--  作者:有点甜
--  发布时间:2017/11/3 17:04:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108436&skin=0

 


--  作者:liyanfeng
--  发布时间:2017/11/3 17:54:00
--  
懂了,谢谢.....
--  作者:liyanfeng
--  发布时间:2017/11/3 17:55:00
--  
懂了,谢谢。。。