Office中国论坛/Access中国论坛

标题: 数组的表达式怎么写？ [打印本页]

作者: ikon 时间: 2008-1-17 20:03
标题: 数组的表达式怎么写？
在access的选择查询中字段里
红1: IIf(Val(Mid([Tbl_KJLS]![开奖红球],1,2))=(2,3,5,7,11,13,17,19,23,29,31),"质　","　合")
为什么这么写不对？

作者: rjacky 时间: 2008-1-17 20:11
不知道在说啥

作者: tz-chf 时间: 2008-1-17 20:23
是in吧......

作者: ikon 时间: 2008-1-17 20:33
红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 时间: 2008-1-17 20:49
搞过六合彩的果然一看就知道是什么回事

作者: huangxiuwen 时间: 2008-1-18 10:25
顶你。顶你。顶你。顶你。顶你。顶你。

作者: rjacky 时间: 2008-1-18 10:30

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

兄弟又换新貌了

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

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

作者: ikon 时间: 2008-1-21 21:17
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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)