Dim Multi As String = "111111|222222"
Dim Values() As String
Values = Multi.split("|")
cmd.CommandText = "Insert Into 房源报备表 (客户编号,报备楼盘) Values(?,?)" For Index As Integer = 0 To Values.Length - 1
cmd.Parameters.clear
cmd.Parameters.Add("@客户编号",bh)
cmd.Parameters.Add("@报备楼盘",Values(Index))
cmd.ExecuteNonQuery
Next