Foxtable(狐表)用户栏目专家坐堂 → PrepareEdit中的公式修改


  共有3172人关注过本帖树形打印复制链接

主题:PrepareEdit中的公式修改

帅哥哟,离线,有人找我吗?
jugdon
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:170 威望:0 精华:0 注册:2018/2/6 9:31:00
PrepareEdit中的公式修改  发帖心情 Post By:2018/5/24 12:05:00 [只看该作者]

表格的PrepareEdit事件,以下公式为什么总是不正确?应该怎么修改:


Dim namestr() As String = {"工资卡开户行","毕业学校","专业"}
If e.IsFocusCell Then '如果是焦点所在单元格
If e.Col.Name In namestr Then
e.Col.Combolist = DataTables(e.Table.name).GetComboListString(e.Col.Name) 
End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/24 12:06:00 [只看该作者]

Dim namestr() As String = {"工资卡开户行","毕业学校","专业"}
If e.IsFocusCell Then '如果是焦点所在单元格
    If array.indexof(namestr, e.Col.name) >= 0 Then
        e.Col.Combolist = e.Table.DataTable.GetComboListString(e.Col.Name)
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
jugdon
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:170 威望:0 精华:0 注册:2018/2/6 9:31:00
  发帖心情 Post By:2018/5/24 12:15:00 [只看该作者]

OK了
不过还是不明白,为什么不能像我那样写?可否教一下?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/24 12:19:00 [只看该作者]

代码没有这种语法

 

If e.Col.Name In namestr Then

 

你可以改成

 

If e.Col.Name = "AAA" orelse e.Col.Name = "BBB" Then


 回到顶部