比眼力啦,看谁的眼睛nb!!!!!!
凡是来过的入不回帖,就不是男人!
ADO_r.Open "INSERT INTO [tbTABLE] ([记录更改日期],[单位], [类别],[签约人],[姓名A],[电话A],[职务A]" & _
",[手机],[通用网址],[网址],[省份],[网络实名],[域名缴费日],[实名缴费日],[通用网址缴费日]" & _
",[管理人],[网站密码],[E_MAIL],[地址],[已付款日],[邮编],[签约日期],[合同金额],[已付金额]) VALUES ('" & CStr(Time) & CStr(Date) & "','" & Wrs & "'," & _
"'" & .Data1.Fields("类别") & "','" & .Data1.Fields("签约人") & "','" & .Data1.Fields("姓名A") & "','" & .Data1.Fields("电话A") & "'," & _
"'" & .Data1.Fields("职务A") & "','" & .Data1.Fields("手机") & "','" & .Data1.Fields("通用网址") & "','" & .Data1.Fields("网址") & "'," & _
"'" & .Data1.Fields("省份") & "','" & .Data1.Fields(网络实名) & "'," & .Data1.Fields("域名缴费日") & ",'" & .Data1.Fields("实名缴费日") & "," & _
"" & .Data1.Fields("通用网址缴费日") & ",'" & .Data1.Fields("管理人") & "','" & .Data1.Fields("网站密码") & "','" & .Data1.Fields("E_MAIL") & "'," & _
"'" & .Data1.Fields("地址") & "'," & .Data1.Fields("已付款日") & ",'" & .Data1.Fields("邮编") & "'," & .Data1.Fields("签约日期") & "," & .Data1.Fields("合同金额") & "," & .Data1.Fields("已付金额") & ")", ZCm_data.Ado_connection, 1, 4
帮我看看哪写错了?!