sSQL = "select * from 查询1 where 单位='" & danwei & "'and 员工类型='" & YGtype & "'"
rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Value <> 0 Then
FieldName = FieldName & "," & rs.Fields(i).Name
End If
Next
cSQL = "SELECT
" & Mid(FieldName, 2) & " into " & YGtype & "工资 from 工资总表 where 单位='" & danwei & "'and 员工类型='" & YGtype & "'"
'select 后的字段来自查询1,但查询1是汇总,没有姓名字段,所以生成表里的记录缺少姓名字段。我改了一下:“ SELECT “‘’姓名‘’”," & Mid(FieldName, 2) & " into " & YGtype & "工资 from 工资总表 。。。。。 ”却总是报sql错误。是语法还是别的原因? 网行者再帮忙看下吧
DoCmd.SetWarnings False
DoCmd.RunSQL cSQL
DoCmd.SetWarnings True
rs.Close: Set rs = Nothing