数组的表达式怎么写？

ikon

在access的选择查询中字段里
红1: IIf(Val(Mid([Tbl_KJLS]![开奖红球],1,2))=(2,3,5,7,11,13,17,19,23,29,31),"质　","　合")
为什么这么写不对？

rjacky

不知道在说啥

tz-chf

是in吧......

ikon

红1: IIf(Val(Mid([Tbl_KJLS]![开奖红球],1,2)) In (1,2,3,5,7,11,13,17,19,23,29,31),"质　","　合")
解决了

[ 本帖最后由 ikon 于 2008-1-20 18:22 编辑 ]

rjacky

搞过六合彩的果然一看就知道是什么回事

huangxiuwen

顶你。顶你。顶你。顶你。顶你。顶你。

rjacky

原帖由 cuxun 于 2008-1-18 07:43 发表


兄弟又换新貌了

嘿嘿，那个头像比较严肃庄重，适合一本正经当版主，还是戴着这个笑脸猫面具抢钱让人感到舒服点

ikon

我在vb代码里写:
dim i as integer
if  i in (1,2,3) then
代码
end if
程序报错
问:如果i在一个数组(1,2,3)里的应该怎么个写法呢,我网上找过没找到相关的 资料

ikon

Dim a() As String
'Type2RedBall()模块
Dim i,j As Integer
Me.Txt_DPHM = Null
Debug.Print Type2RedBall(Mid(Me.Txt_JOZS, 1, 1))
Debug.Print "=================================="
a() = Split(Type2RedBall(Mid(Me.Txt_JOZS, 1, 1)), ",")
For j = 0 To UBound(a())
   For i = 1 To 33
      If i = a(j) Then
         Me.Txt_DPHM = Me.Txt_DPHM & i & " "
         Debug.Print "j = " & j
         Debug.Print "a(" & j & ") = " & a(j)
         Debug.Print "i = " & i
         Debug.Print "txt = " & Me.Txt_DPHM
         Debug.Print "--------------------------"
      End If
      'DoEvents
   Next i
   'DoEvents
Next j

在网上找了些资料写了以上的代码,这段代码还有优化的地步吗?(比较容易理解的)