以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  PrepareEdit中的公式修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119406)

--  作者:jugdon
--  发布时间:2018/5/24 12:05:00
--  PrepareEdit中的公式修改
表格的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

--  作者:有点甜
--  发布时间: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
--  发布时间:2018/5/24 12:15:00
--  
OK了
不过还是不明白,为什么不能像我那样写?可否教一下?

--  作者:有点甜
--  发布时间:2018/5/24 12:19:00
--  

代码没有这种语法

 

If e.Col.Name In namestr Then

 

你可以改成

 

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