主题：请教：如何将项目表中的数据合并到后台数据库中？（已解决）

杨版，我系统中有一段代码应该合用，也是提取某表数据，然后根据选择的行合并到后台数据表。前提是提取的数据有唯一标识（可以没有主键）。
PS:M兄的修改要求也在绿色代码里面了。

Dim rs As List(of Row) = Tables("执行_Table1").GetCheckedRows()
Dim ID As String
For Each r As Row in rs
    ID = ID & "," & r("序号")
Next
If ID = "" Then
    MessageBox.Show("至少选择一项医嘱!","提示")
Else
    ID = ID.Trim(",")
    Dim cmd As New SQLCommand
    Dim Count AS Integer
    cmd.Con nection Name = "Yasys"
    cmd.CommandText = "INSERT INTO 执行单 (医嘱序号,住院序号,项目编码,医嘱内容,规格,单量,剂量单位,总量,单位,单价) SELECT  序号,住院序号,项目编码,医嘱内容,规格,单量,剂量单位,总量,单位,单价 FROM 医嘱 where 序号 in (" & ID & ")"
    Count = cmd.ExecuteNonQuery()
    cmd.CommandText = "Update 医嘱 set 上次执行 = '" & Vars("执行时间") & "' where 序号 in (" & ID & ")"
    cmd.ExecuteNonQuery()
    cmd.CommandText = "Update 执行单 set 执行时间 = '" & Vars("执行时间") & "',发送人 = '" & Vars("用户") & "' where 执行时间 is null"
    cmd.ExecuteNonQuery()
    Messagebox.Show( "执行成功!总共执行" & Count & "项医嘱!")
End If