Foxtable(狐表)用户栏目专家坐堂 → 字符与字符的连接


  共有11730人关注过本帖树形打印复制链接

主题:字符与字符的连接

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
字符与字符的连接  发帖心情 Post By:2011/11/18 20:58:00 [显示全部帖子]

表中分别有 第一列、第二列、第三列、第四列、第五列;

 

要将 第一列、第二列、第三列、第四列、第五列里的内容以:“第一列/第二列/第三列/第四列/第五列” 形式连接起来(例如其中某列没有内容,则不连接它)


 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2011/11/18 22:31:00 [显示全部帖子]

谢谢 CZY 老师,效果好,您的代码是将表A,行里的内容连接起来。可事实上,我只需要将其中的几个列连接,例如第一、第三、第四、第七列的内容连接。在第八列中显示。

 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2011/11/19 8:10:00 [显示全部帖子]

CZY老师:我在表中事件“DataColChanging”中使用了以下代码,以切正常使用,当我在事件“DataRowAdding”增加:e.DataRow("日期") = Date.Today()
e.
DataRow("姓名"
) = User.Name代码时,却报错,提示见图片:,请问我应该如何解决?
以下是引用czy在2011-11-18 21:12:00的发言:

更正一下:

 

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第十列" Then
        If r.IsNull(c.Name) = False Then
            s = s & r(c.Name) & "\"
        End If
    End If
Next
r("第十列") = s.Trim("\")


 回到顶部