[求助]用关键字搜索树控件时出错?

好学

用关键字搜索子窗体没问题(如窗体1)，用关键字搜索树控件时出错(如窗体2)。是什么原因呢[em06][em06][em06]

andymark

用Debug.Print strSQL你就会发现问题所在

神剑李逍遥

我看不明

[此贴子已经被作者于2006-8-10 17:24:39编辑过]

好学

我是菜鸟不明白版主的意思,还请版主明示![em06][em06][em06]

andymark

Debug.Print strSQL结果为:

SELECT 工厂名称,车间ID,车间名称 from 资料录入 Where 工厂名称='伟业'and 车间名称 Like IIf(IsNull([forms]![窗体2]![搜索]),'*','*' & [forms]![窗体2]![搜索] & '*') GROUP BY 工厂名称,车间ID,车间名称

实际上iif 后面的语句并没有转化,用if ..then ..else.. 代替。尽量不要用IIF(),这个函数在产生结果前

必须计算包含其中的所有表达式，没有标准if ..then..else速度快．ＡＤＯ 用 % 代表 *

[此贴子已经被作者于2006-8-10 20:02:12编辑过]

好学

andymark看来应该用情版主教我的:

If IsNull(Text5) Then
        wherestr = " WHERE pname like '*'"
    Else
        wherestr = " where pname like '*' & '" & Text5 & "' & '*'"
    End If
    mysql = "SELECT * FROM tab_pinfo " & wherestr

但是我看不明白上面的意思,如果结合我的例子是否:

SELECT 工厂名称,车间ID,车间名称 from 资料录入 Where 工厂名称='伟业'and If IsNull(搜索) Then wherestr = " WHERE pname like '*'" Else: wherestr = " where pname like '*' & '" & 搜索 & "' & '*'" End If GROUP BY 工厂名称,车间ID,车间名称"

andymark

    Dim Tem As String
  
    Tem = [Forms]![窗体2]![搜索]
    strSQL = "SELECT 工厂名称,车间ID,车间名称 from 资料录入 "
   
    If IsNull(Me.搜索) Then
      
      strSQL = strSQL & "Where 工厂名称='" & Me.工厂名称 & "' GROUP BY 工厂名称,车间ID,车间名称"
    Else
      strSQL = strSQL & "Where 工厂名称='" & Me.工厂名称 & "'and 车间名称 Like '%" & Tem & "%' GROUP BY 工厂名称,车间ID,车间名称"
    End If
     

好学

谢谢andymark版主的指导!以前我对树控件一点都不明白,现在慢慢开始明白了![em04][em04]