Object Reference

Classes
Command Interface
- xf_Command
External
- xf_External_VB6_32bit
- xf_External_VB7_32_64bit
General
System Core
System Library

xf_DataListDataList Base Class

Public Sub AlterColValDups (
ColIndex As Integer,
AlterMask As String
)

Replaces all duplicates of a value in a column with a nominated string. The columns must be sorted already if the duplicates are to be in a single contiguous block. The first value is not modified.
This can simulate the 'Hide Duplicates' property available in Access reports.

ColIndex as Integer

The column index

AlterMask as String

Replace duplicates with this value. If Altermask contains the string '[Original]' it will be text-substituted with the original value of the column

Call Template:

Dim obj As New xf_DataList

obj.AlterColValDups ColIndex, AlterMask

Example 1:

Dim lst As New xf_DataList
lst.AlterColValDups xf.DbConnect, "SELECT * FROM Shippers"
lst.AlterColValDups 4, ""