专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76164)

--  作者：ZDG
--  发布时间：2015/10/22 21:52:00
--  [求助]

Dim Cols1() As String = {"单号", "品号", "品名", "数量", "单价", "金额", "下单日期", "交货日期", "迟交", "短交"}
            Dim Cols2() As String = {"单号", "品号", "品名", "数量", "单价", "金额", "下单日期", "交货日期", "迟交", "短交"}
            For Each tb As DataRow In ds.Tables("采购明细").Rows
                For i As Integer = 0 To Cols2.Length - 1
                    com = New SqlClient.SqlCommand("insert into 采购明细( Cols1(i)）values(tb(cols2(i)))", cn)

                    com.ExecuteNonQuery()

                Next
            Next
哪位高手能告诉我为啥空的就插入成功，有数据就说语法错误？？？？

--  作者：ZDG
--  发布时间：2015/10/22 21:58:00
--
想学语言怎么就这么难呢，都没人教

--  作者：大红袍
--  发布时间：2015/10/22 22:00:00
--
Dim Cols1() As String = {"单号", "品号", "品名", "数量", "单价", "金额", "下单日期", "交货日期", "迟交", "短交"}
Dim Cols2() As String = {"单号", "品号", "品名", "数量", "单价", "金额", "下单日期", "交货日期", "迟交", "短交"}
For Each tb As DataRow In ds.Tables("采购明细").Rows
    Dim s1 As String = ""
    Dim s2 As String = ""
    For i As Integer = 0 To Cols2.Length - 1
        s1 &= cols1(0) & ","
        s2 &= "\'" & tb(cols2(0)) & "\',"
    Next
    com = New SqlClient.SqlCommand("insert into 采购明细(" & s1.trim(",") & ") values (" & s2.trim(",") & ")", cn)
    com.ExecuteNonQuery()
Next

--  作者：ZDG
--  发布时间：2015/10/22 22:05:00
--
谢谢大红袍老师了，您是真正的好人，太谢谢了

--  作者：ZDG
--  发布时间：2015/10/28 19:04:00
--
Dim SQL As String = "insert into 采购明细 (单号,品号,品名,数量,单价,金额,下单日期,交货日期,迟交，短交 ) values ( \'" & tb("单号") & "\',\'" & tb("品号") & "\', \'" & tb("品名") & "\',\'" & tb("数量") & "\',\'" & tb("单价") & "\',\'" & tb("金额") & "\',\'" & tb("下单日期") & "\',\'" & tb("交货日期") & "\',\'" & tb("迟交") & "\',\'" & tb("短交") & "\')"
大红袍老师，为什么用这个跟上面拼接出来的不一样

--  作者：大红袍
--  发布时间：2015/10/28 19:14:00
--
什么不一样？出什么错？msgbox看一下sql是什么内容