杨版,我系统中有一段代码应该合用,也是提取某表数据,然后根据选择的行合并到后台数据表。前提是提取的数据有唯一标识(可以没有主键)。
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
[此贴子已经被作者于2010-1-28 12:52:09编辑过]