| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]救助语句如何写 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80366) |
| -- 作者：rpg2813 -- 发布时间：2016/1/21 12:52:00 -- [求助]救助语句如何写 dim xm() as string ={"张三","李四","王五"} select case e.datacol.name case "姓名" if e.datarow("姓名") in xm then 代码1 else 代码2 end if ----------- 现在是红色部分不知道怎么写，查了下帮助没找到，就是只要姓名字段等于我定义的一串字符中的一个就执行代码1 用cotains("张三")我会，但是名单有点长
|
| -- 作者：wyz20130512 -- 发布时间：2016/1/21 13:15:00 -- 回复：（rpg2813）[求助]救助语句如何写 遍历自定义数组 Dim xm() As String ={"张三","李四","王五"} Select Case e.DataCol.Name Case "姓名" For Each xm_ As String In xm If e.DataRow("姓名") = xm_ Then 代码1 Else 代码2 End If Next End Select 另IN是用在表达式中的！
[此贴子已经被作者于2016/1/21 13:16:49编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/1/21 14:13:00 -- 要这样写。
if Array.IndexOf(xm,e.datarow("姓名")) >= 0 then |
| -- 作者：wyz20130512 -- 发布时间：2016/1/22 21:54:00 -- 回复：（大红袍）要这样写。 if Array.... Array.Indexof()这在Foxtable中没介绍呀？ |
| -- 作者：wyz20130512 -- 发布时间：2016/1/22 22:05:00 -- 回复：（rpg2813）[求助]救助语句如何写 或者如下： If e.DataCol.Name = "xm" Then Select Case e.DataRow("xm") Case "张三","李四","王五" 代码1 Case Else 代码2 End Select End If |