[已解决]如何用变量代替in语句后面的内容

andymark

  我想用变量代替IN语句的内容 ，为什么在子窗体可以这样调用变量 ，而在条件格式设置时又不行呢

    Me.Text4 = "'江苏','浙江'"
    strWhere = "[省份] in (" & Me.Text4 & ")"

[此贴子已经被作者于2006-6-10 14:27:34编辑过]

fan0217

Private Sub Form_Load()
Dim strWhere As String
Me.Text4 = "'江苏','浙江'"
    strWhere = "[省份] in (" & Me.Text4 & ")"

Me.sub.Form.Filter = strWhere
Me.sub.Form.FilterOn = True

End Sub

fan0217

可写个函数来预先处理输入的参数。

andymark

谢谢fan0217  

　　我的最终目的是通过变量来改变条件格式，把上面的代码放上去不行[em06][em06]   

qlm

用什么方法可以在逗号前后插入一个分号呢？

replace行吗？我试过不行啊

qlm

这样就可以，不过用的SQL有点不同

在文本框填入  江苏,淅江

然后:

Private Sub Text4_DblClick(Cancel As Integer)
Dim strWhere As String
Dim sss As String

sss = Replace(Text4, ",", " 'or 省份='")
strWhere = "省份='" & sss & "'"
Me.sub.Form.Filter = strWhere
Me.sub.Form.FilterOn = True

End Sub

[此贴子已经被作者于2006-6-9 22:40:53编辑过]

zxzx2733

fan0217的方法可用，你的例子不是做好了

用三个组合框....为条件格式用

[此贴子已经被作者于2006-6-9 23:19:41编辑过]

andymark

以下是引用qlm在2006-6-9 22:40:00的发言：


这样就可以，不过用的SQL有点不同

在文本框填入  江苏,淅江

然后:

Private Sub Text4_DblClick(Cancel As Integer)
Dim strWhere As String
Dim sss As String

sss = Replace(Text4, ",", " 'or 省份='")
strWhere = "省份='" & sss & "'"
Me.sub.Form.Filter = strWhere
Me.sub.Form.FilterOn = True

End Sub

    谢谢你。我的最终目的是通过变量来改变条件格式，如文本的值是江苏、浙江时，省份的颜色就改变，在4楼的例子中，你试试看

  

andymark

以下是引用zxzx2733在2006-6-9 22:45:00的发言：


fan0217的方法可用，你的例子不是做好了

用三个组合框....为条件格式用

     我只想用一个条件，格式N条记录,记录值是不定的，只能用变量

qlm

以下是引用andymark在2006-6-9 22:55:00的发言：






    谢谢你。我的最终目的是通过变量来改变条件格式，如文本的值是江苏、浙江时，省份的颜色就改变，在4楼的例子中，你试试看


  

试了，用变量的方法不行．