主题：[求助]

Dim ids As String
Dim lst As new List(of String)
Dim cnt As Integer = DataTables("员工").DataRows.Count
Do
    Dim Id As Integer = rand.Next(0,cnt)
    id = DataTables("员工").DataRows(id)("_Identify")
    If lst.Contains(id) =False Then
        lst.Add(id)
    End If
    ids = ids & id & ","
Loop While lst.count < 5   '5是要抽取的行数
Tables("员工").Filter = "[_Identify] In (" & ids.Trim(",") & ")"

为何定义为字符型而不是整型？

不是说_Identify是整型吗？而定义为字符型也不出错呢？