主题：in 函数

Dim lst As new List(of String)
For Each dr As DataRow In dt.DataRows
    lst.Add(dr("人员名称"))
Next
Dim a1 As String = String.Join(",",lst.ToArray())
Dim a1s() As String
a1s = a1.Split(",")

cmd.CommandText = "sele  ct 项目编号 from 结算汇总表 where  项目编号 in ('"  & a1s &  "')  ) "

显示 ： 项目编号 in ('"  & a1s &  "')  这里有问题