INSERT 语句中列的数目大于 VALUES 子句中指定的值的数目。VALUES 子句中值的数目必须与 INSERT 语句中指定的列的数目匹配。

Question

fieldsql = "insert into oa_data.sysdba.wgmt(WG01,WG00,WG06,WG02," & dafield& ",WJBZ,KFBZ,KCFS,XHBZ,JYBZ) " '组合字段
    If (data(5) <> "") Then
        data(5) = GetUserName(data(5))
    End If
    For i = 3 To fieldcount - 1 '组合值
        valuesql = valuesql & ",'" & Replace(data(i), " ", "") & "'"
    Next
    valuesql = "values(0," & wg00 & "," & mMediaID & ",'" & lxfield & "'" & valuesql & ",'0'" & ",'0'" & ",'1'" & ",'0'" & ",'0'" & ")"
    instrsql = fieldsql & valuesql
    
Dim instrsql1 As String
    instrsql1 = "INSERT INTO oa_data.sysdba.wgmt__(WG00,WGMJ) VALUES(" & wg00 & ",'0')"
    

Answer 1

提示已经很清楚了.insert into tablename (field1,field2,field3,field4) values (value1,value2,value3)这样的情况导致的，也就是说values中的列数小于插入时指定的列的个数。
可以跟踪一下程序看看哪里出了问题。
可能是变量在处理的时候出了问题。

Answer 2

Values里面应该还有一列value4，该值可以是常量或者列名也行。

Answer 3

instrsql打印出来看看，或者跟踪