主题：查询表格后批量新增，报错不返回任何键列信息的 Sel ectCommand，不支持 Upd ateCommand 的动态 SQL 生成

' 写入数据库

    Dim cmd As New SQLCommand

    Dim strSQL As String

    cmd.C

    'Try

        Output.Show("11111111111")

        ' 如果重算，则删除当天数据

        If bCalAll Then

            strSQL = "dele te dbdayCard where YYMMDD = '" & queryDate.ToString & "'"

            cmd.CommandText = strSQL

            cmd.ExecuteNonQuery()

        End If

        Output.Show("222222222222")

        ' 选择一个空表

        strSQL = "sele ct  empNo , empName , workHour , partNo , dtName1 , dtName2 , dtName3 , dtName4 , dtName5 , dtName6 , 可用, 创建者 , 创建时间 , 修改者, 修改时间 , YYMMDD , workType , Leader , workZone "

        strSQL = strSQL & Chr(13) & "from  {dbdayCard} where [_identify] is null " 

        cmd.CommandText = strSQL

        Output.Show(strSQL)

        Dim dt As DataTable = cmd.ExecuteReader(True)

        Output.Show("333333333333")

        ' 填充数据

        For Each dr As DataRow In dbData.DataRows 

            Dim drNew As DataRow = dt.AddNew()

            For Each dc As DataCol In dbData.DataCols

                drNew(dc.Name) = dr(dc.Name)

            Next 

        Next

        Output.Show("44444444444444")

        ' 保存

        dt.Save()

        Output.Show("555555555555555")

    'Catch ex As Exception 

    '    Output.Show( "try:" & ex.Message)

    ' End Try