Dim cmd As new SQLCommand
cmd.C
For Each dr As DataRow In DataTables("项目开piao_table1").DataRows
cmd.CommandText = "S elect 项目名称,业主 from {在建项目} Where 项目名称 = ' "& dr("项目名称") & "'"
Dim Values = cmd.ExecuteValues
If Values.Count < 1 Then
cmd.CommandText = "Insert Into 在建项目 (项目名称, 业主) Values(?,?)"
cmd.Parameters.Add("@项目名称",dr("项目名称"))
cmd.Parameters.Add("@业主",dr("业主"))
cmd.ExecuteNonQuery
End If
Next
复制数据到另一张表,代码无效