Office中国论坛/Access中国论坛

标题: 提取列内容时如何避免出现重复内容？ [打印本页]

---

作者: REORX    时间: 2008-3-4 23:51
标题: 提取列内容时如何避免出现重复内容？
各位大大晚上好！

我在提取国家名称一列的内容到文本框时，如何让重复出现的国家只在文本框中显示一个呢。

感谢赐教！

---

作者: access3009    时间: 2008-3-5 09:59
用split函数来做, 判断各个子项有没有重复

---

作者: REORX    时间: 2008-3-11 21:06
谢谢,要学习一个这个函数

---

作者: glw    时间: 2008-3-11 22:26
Function allname()
    Dim d As Recordset
    Set d = CurrentDb.OpenRecordset("SELECT distinct 团组接待表.所属国家地区 FROM 团组接待表;")
    d.MoveFirst
    Do While Not d.EOF
        allname = allname & "," & d(0)
        d.MoveNext
    Loop
    allname = Right(allname, Len(allname) - 1)
End Function

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3