新手问题，各位帮帮忙，在线等。vb中语法出错"标准表达式中数据类型不匹配"

Question

Private Sub Command1_Click()
'统计应收宿费、预收宿费
If DTP1.Value <= DTP2.Value Then
 G1.Text = Left(DTP1, 4) & Right(Left(DTP1, 7), 2) & Right(DTP1, 2) & Left(DTM1, 2) & Left(Right(DTM1, 5), 2)
 G2.Text = Left(DTP2, 4) & Right(Left(DTP2, 7), 2) & Right(DTP2, 2) & Left(DTM2, 2) & Left(Right(DTM2, 5), 2)
 Data1.RecordSource = "select * from djys where djys.BZ >" & Val(G1.Text) & "AND djys.bz< " & Val(G2.Text) & "  order by 凭证号码"
 Data1.Refresh
 Data2.RecordSource = "select count(*) as ddd,sum(应收宿费)as 应收宿费1 ,sum(预收金额)as 预收汇总 from djys where djys.BZ >" & Val(G1.Text) & "AND djys.bz<" & Val(G2.Text)
 Data2.Refresh
 If Data2.Recordset.Fields(1) <> "" Then Labys.Caption = Format(Data2.Recordset.Fields(1), "0.00") Else Labys.Caption = "0"
 If Data2.Recordset.Fields(2) <> "" Then Labyj.Caption = Format(Data2.Recordset.Fields(2), "0.00") Else Labyj.Caption = "0"
Else
  main_ts7.Show
  main_ts7.Label3.Caption = "日期不能颠倒!"
 DTP2.Value = Date
End If
End Sub为什么总提示“标准表达式中数据类型不匹配”。djys是一张表，BZ是它其中的一个属性，BZ是文本型，我觉得错误好像是和BZ有关，请大家帮忙看看那句有错误，该怎么改？

Answer 1

先提示Data1.Refresh错，删掉之后，提示Data2.Refresh错。再问下要保存Left(Date, 4) & Right(Left(Date, 7), 2) & Right(Date, 2) & Left(Time, 2) & Left(Right(Time, 5), 2)，在access数据库中，应存成什么型？

Answer 2

把Val(G1.Text)类似句子的VAL去掉
试试

Answer 3

回复yangao：谢谢你，不过还是不行，提示“标准表达式中数据类型不匹配”。点调试，VB把Data1.Refresh标黄

Answer 4

Data1.RecordSource = "select * from djys where djys.BZ >" & Val(G1.Text) & "AND djys.bz< " & Val(G2.Text) & "  order by 凭证号码"bz是文本型的为什么用>这样符号呢？
你是不是找时间呢？g1.text，g2.text得出的结果是什么？

Answer 5

回复clear_zero:对对，就是找时间，g1.text和g2.text是取的两个时间段。如果我把>"& Val(G1.Text) & "AND djys.bz< " & Val(G2.Text) & " order by 凭证号码"删掉，就不报错了，不知为什么，请帮帮忙，谢谢

Answer 6

DTP1.Value = Date - 1
DTP2.Value = Date
  G1.Text = Left(DTP1, 4) & Right(Left(DTP1, 7), 2) & Right(DTP1, 2) & Left(DTM1, 2) & Left(Right(DTM1, 5), 2)
  G2.Text = Left(DTP2, 4) & Right(Left(DTP2, 7), 2) & Right(DTP2, 2) & Left(DTM2, 2) & Left(Right(DTM2, 5), 2)

Answer 7

坟帖到到现在还在飘，CSDN的管理员真够可以的……

Answer 8

本人用VB编写:QQ强行聊天工具《绿色版免费的噢，专找美女QQ聊天》
下载地址：
ftp://14316:[email protected]/只要输入对方QQ号就行啦，强行和她聊天，程序介面不是很好看，没处理太好，请理解我噢，用啦就知道有多好了，，，
骗人是小狗。我的QQ号是：2247828769    我也可以发你的，哈哈。不过不要做乱事呀。