主题：如何合并上下两列的值并去除重复值？已解决！

各位老师，

 

如下图：

 

此主题相关图片如下：360截图20121006-002.jpg

 

想将上下两列的字符串合并成一个新的字符串去掉重复的值即

 

新字符串为：“录入日期/入库类别/入库单号/仓库/仓管员/录入”

 

代码要怎么写？

 

谢谢！

 

程版太牛了，果真看出我的意图，现在的问题是同一张单不同的角色的权限不一样，但同一个用户同时具有这几种角色，所以想把它们合并在一起，即每一个角色的权限他都有，我用了如下代码，但只能随机的得到其中的一个角色的权限，满足不了要求，请指点，谢谢！

 

 '将角色转化成in可以调用的格式
    Dim R As String = "'" & MyRole.replace(",","','") & "'"
   '从授权表中集合当前用户能查看及编辑的表
    Dim drs As List(Of DataRow)
    drs = DataTables("授权表").Select("[表名] = '" & e.Node.Text & "' And [部门] = '" & MyGroup & "'And [角色] in (" & R & ")")
    If drs IsNot Nothing Then
        '设置权限
        For Each dr1 As DataRow In drs
            If dr1.IsNull("可编辑列") Then
                Tables(e.Node.Text).AllowEdit = False
            Else
                Tables(e.Node.Text).AllowEdit = True
                For Each c As Col In Tables(e.Node.Text).Cols
                    Dim a As String = c.name
                    If dr1("可查看列").contains(a) Then
                        c.Visible = True
                    Else
                        c.Visible = False
                    End If
                    If dr1("可编辑列").contains(a) Then
                        c.AllowEdit = True
                    Else
                        c.AllowEdit = False
                    End If
                Next
            End If
        Next
    End If

 

谢谢程版，总算明白了你说的部份列重复执行的意思，调整了一下原来的代码，去掉了中间的两个else可以了。

那如果第2行与第3行的位置调换了是不是就变成程军就不可以编辑“工资等级”了。实际中授权表中的行的顺序应该经常会变动的。但我的授权表是采用这种方式的，

此主题相关图片如下：360截图20121008-001.jpg

用了下面的代码：

                      For Each c As Col In tb.Cols
                            Dim a As String = c.name
                            If dr1("可查看列").contains(a) Then
                                c.Visible = True
                            End If
                            If dr1("可编辑列").contains(a) Then
                                c.AllowEdit = True
                            End If
                        Next

如果同一个用户既是经理又是生管的用户登陆时查看及编辑的权限就是所有行中组合起来的，不知道我说的对不？

但我现在的问题是加载后为什么我的关联表不会显示出来，请老师帮我看一下这贴，

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=24204&page=2

我弄不明白，是不是For Each tb As Table In Tables这样的遍历table不会包括名称为“订单.订单明细”这样的关联表？

谢谢！