牛角尖里的朋友继续寻求帮助!!!!!
谢谢 !!!!这么多朋友的热心帮助!!!!
真的是太感激了!!!!!
我的问题还是没有解决!!(我是不是太笨了???)
在前面的问题(下面全部代码),下面第一条语句以前的语句可以执行,但加上下面第二条语句以后,在调试程序时提示我:“标准表达式中数据类型不匹配”,我真的弄不明白!还需要大家的帮助!
"where 订单ID.客户ID = '" & Cid & " ' " _
& " and 订单ID.生产ID = ' " & Mid & " ' "
全部的代码如下:
————————————————————————————
Dim strSQL As String
Dim Cid As String
Dim Mid As String
Dim Pid As String
Dim begindate As String
Dim enddate As String
Cid = Text1.Text
Mid = Text2.Text
Pid = Text3.Text
begindate = Text4.Text
enddate = Text5.Text
strSQL = "SELECT 订单ID.客户ID, 订单ID.生产ID, 订单ID.产品ID , _
客户ID.客户名称, 订单ID.单价, 订单ID.数量, 订单ID.总价, 订单ID.订单日期 " & _
"INTO [客户信息] " & _
"FROM 订单ID INNER JOIN 客户ID " & _
"ON 订单ID.客户ID = 客户ID.客户ID" & _
"where 订单ID.客户ID = '" & Cid & " ' " & " and 订单ID.生产ID = _
' " & Mid & " ' " & " and 订单ID.产品ID = ' " & Pid & " ' " _
& " between 订单ID.开始日期 = '" & begindate & " ' " & "and _
订单ID.结束日期=' " & enddate" ' "
————————————————————————————