Dim id() As String = {"1", "2", "3"}

        Dim str As String = String.Empty

        For Each s In id
            str = str & s & ","
        Next


        str = String.Format("select GoodsName from Goods where ID in ({0})", str.Substring(0, str.Length - 1))

        MessageBox.Show(str)

------解决方案--------------------

探讨

string.Format("select GoodsName from Goods where ID in {0}", string[]) 
试试…