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

杨版，我系统中有一段代码应该合用，也是提取某表数据，然后根据选择的行合并到后台数据表。前提是提取的数据有唯一标识（可以没有主键）。
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

啰嗦一点的代码要不要

Dim scm as New SQLCommand
scm.C
Dim t as Table = Tables("表A")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into 表A " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next

论坛好怪，代码也吃

谢谢11楼的，先收藏用到时再来应用～

再发一次

Dim scm as New SQLCommand
scm.ConnectionName  = "aaa"
Dim t as Table = Tables("表A")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into 表A " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:合并到后台数据库.rar

示例在此，先谢谢R版

谢谢C版！我试试
试了，还是没能增加到库中，请C版用楼上的示例测试一下

对不起，刚才是我的数据库链错了，C版的代码测试成功，谢谢各位老师！

Dim scm as New SQLCommand
scm.ConnectionName  = "xc"
Dim t as Table = Tables("B1")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into B1库 " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next


此主题相关图片如下：qq截图未命名.png

偶然发现15楼的例子有个奇怪的现象：只要修改表结构，就出现错误并导致项目崩溃。比如，把第一列的日期从“字符型”改成“日期时间型”。

我这里1229版的可以正常修改结构啊～  【比如，把第一列的日期从“字符型”改成“日期时间型”。 】