求助:交叉表条件问题

一克拉小猎

大虾好，我在做交叉查询的时候碰到几个问题，请教下，非常感谢。
      附件中的MDB内容：
             表：   F-TSS
             查询:  TSS_req1（用[Forms]![main]![Text0],做条件的交叉表），TSS_req2（用函数tt()做条件的交叉表）
             窗体: TSS_req2_win,  main
      问题：
             1：TSS_req1查询时提示说 [Forms]![main]![Text0]不能识别为一个有效的字段名.可是在选择查询里是可以的
             2：然后我把条件换成tt()，oK了，可是在变量值为“*”时，却没有效果。
      麻烦大家了，多谢`````

一克拉小猎

自己点几下，顶一顶```

一克拉小猎

在顶顶，不要沉

一克拉小猎

再顶起，麻烦大家帮我看看，多谢````

todaynew

我也遇到过，不知道原因。后来是在VB中用me.控件名.value解决的。

一克拉小猎

回复 todaynew 的帖子


    能不能写个实例给我········麻烦你了```要是不介意的话```可以在我那个例子上改```

一克拉小猎

在交叉表中，我如果在课名（字段名）下输入*，查询出来就是所有记录，可如果我把*赋值给函数tt()，然后在交叉表的条件中填tt(),却查出来是空记录，我想了一天了都解决不了，麻烦你拉`````实在找不出解决方法了```

todaynew

在交叉表中，我如果在课名（字段名）下输入*，查询出来就是所有记录，可如果我把*赋值给函数tt()，然后在交 ...
一克拉小猎 发表于 2010-8-6 16:18

Function 创建交叉查询()
Dim Qdef As QueryDef
Dim strSQL As String
strSQL = "TRANSFORM Sum([TSS人数]*[TSS时间]) AS TSS合计 "
strSQL = strSQL & "SELECT F_TSS.日付, F_TSS.课名, F_TSS.机种 "
strSQL = strSQL & "FROM F_TSS "
strSQL = strSQL & "WHERE F_TSS.课名='" & Me.[Text0].Value & "' "  
strSQL = strSQL & "GROUP BY F_TSS.日付, F_TSS.课名, F_TSS.机种 "
strSQL = strSQL & "PIVOT F_TSS.TSS区分;"
If DCount("*", "MSysObjects", "Type=5 and Name='TSS_req1'") = 0 Then
    Set Qdef = CurrentDb.CreateQueryDef("TSS_req1")
    Qdef.SQL = strSQL
Else
    Set Qdef = CurrentDb.QueryDefs("TSS_req1")
    Qdef.SQL = strSQL
End If
Qdef.Close
Set Qdef = Nothing
End Function

sgrshh29

回复 一克拉小猎 的帖子

一克拉小猎

回复 sgrshh29 的帖子

   多谢哈```可是，组合框里如果是空的的话，还是无法筛选呢~····