请教一下老师，这种循环的列表AddListGroup，怎么让Id不重复

Dim e As object = args(0)
Dim wb As New WeUI
Dim drs As  List(of  DataRow) = DataTables("项目管理人员管理").SQLSelect("项目名称 = \'" & _Userxmmc & "\'","","_Identify")
If drs.Count > 0 Then
    For Each dr As DataRow In drs
        With wb.AddListGroup("", dr("身份证号码"),dr("职务"))  \'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.
            .Add("ls1","姓  名",dr("姓名"))                     \'ID ID.Text 列表内容.Description 列表说明 Href 超链接. Image 图标.
            .Add("ls2","联系电话", dr("联系电话"), "tel:" & dr("联系电话"))
        End With
    Next
    e.WriteString(wb.Build)
End If

老师，我姓名哪儿没有链接，怎么姓名后面有那个符号呢？