主题：[求助]这个过程怎么写

'定义一个字符集合ls,然后从jbxx表中找出不重复的人员编号保存到这个集合中

Dim ls As New List(Of String)

Ls = DataTables("jbxx").GetUniqueValues("","人员编号")

With Tables("数据")

    Dim r As Row '定义一个Row类型变量,用于引用接下来新增加的行

    For Each p As String in ls  '遍历集合中的每一个人员编号

        r = .Rows.AddNew(1) '针对每一个人员编号,在数据表中增加一行

        r("人员编号") = p '设置新增行的编号

        r("工资代码") = 18

        r("状态") = "正常"

    Next

End With