For Each dr As DataRow In Foxdt.DataRows nms = nms & ",'" & dr("姓名") & "'" Next If nms > "" Then nms = nms.Trim(",")
Else