- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按钮控制列的合并与分离 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123256)
-- 发布时间：2018/8/10 17:07:00
-- [求助]按钮控制列的合并与分离
想在窗口中设置2个按钮，点击合并时，将下图窗口中的第一列的值"1，2，3..."，变为"AA-1，AD-2，AC-3..."; 点击分离时，再变回“1，2，3...”。
但不增加新列。
谢谢！
此主题相关图片如下：image 2.jpg
-- 发布时间：2018/8/10 17:10:00
--
循环每一行，合并/分割值不就行？
-- 发布时间：2018/8/10 20:27:00
--
谢谢指点！
还能精简代码吗？
\'合并
For Each c As Col In Tables("窗口1_table1").Cols
If c.Name = "名称" Then
For Each r As Row In Tables("窗口1_table1").Rows
If r("名称") <> "" AndAlso r("数字") <> "" AndAlso r("名称").Contains("-") = False Then \'避免多次合并
r("名称") = r("数字") + "-" + r("名称")
End If
Next
End If
Next
\'分离
For Each c As Col In Tables("窗口1_table1").Cols
If c.Name = "名称" Then
For Each r As Row In Tables("窗口1_table1").Rows
If r("名称") <> "" AndAlso r("数字") <> "" AndAlso r("名称").Contains("-") = True Then \'避免多次分离
Dim s = r("名称")
Dim s1() As String
s1 = s.split("-")
r("名称") = s1(1)
End If
Next
End If
Next
-- 发布时间：2018/8/10 20:57:00
--
\'合并
For Each r As Row In Tables("窗口1_table1").Rows
If r.isnull("名称") = False AndAlso r.isnull("数字") = False AndAlso r("名称").Contains("-") = False Then \'避免多次合并
r("名称") = r("数字") + "-" + r("名称")
End If
Next
\'分离
For Each r As Row In Tables("窗口1_table1").Rows
If r.isnull("名称") = False AndAlso r.isnull("数字") = False AndAlso r("名称").Contains("-") = True Then \'避免多次分离
Dim s = r("名称")
Dim s1() As String
s1 = s.split("-")
r("名称") = s1(1)
End If
Next
-- 发布时间：2018/8/10 21:17:00
--
谢谢蓝版！
我把两段代码放在一个按钮中，怎么不对？
If e.Form.Controls("Button1").Name = "合并" Then
For Each r As Row In Tables("窗口1_table1").Rows
If r.isnull("名称") = False AndAlso r.isnull("数字") = False AndAlso r("名称").Contains("-") = False Then \'避免多次合并
r("名称") = r("数字") + "-" + r("名称")
End If
Next
e.Form.Controls("Button1").Name = "分离"
Else
For Each r As Row In Tables("窗口1_table1").Rows
If r.isnull("名称") = False AndAlso r.isnull("数字") = False AndAlso r("名称").Contains("-") = True Then \'避免多次分离
Dim s = r("名称")
Dim s1() As String
s1 = s.split("-")
r("名称") = s1(1)
End If
Next
e.Form.Controls("Button1").Name = "合并"
End If
-- 发布时间：2018/8/10 21:30:00
--
e.Form.Controls("Button1").Name 改为 e.Form.Controls("Button1").Text