- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 条件设定是否可以编辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185971)
-- 发布时间：2023/3/29 10:36:00
-- 条件设定是否可以编辑
此主题相关图片如下：qq截图20230329103123.png
公式设定，现在想核算公式列值为“按公式转出”时，金额公式列可以显示下拉窗口并可编辑；否则选定显示灰色，并不可以显示下拉窗口并不可编辑
这个代码怎样写呢
测试了很久都不行
-- 发布时间：2023/3/29 10:40:00
--
参考：http://www.foxtable.com/webhelp/topics/1457.htm
If e.IsFocusCell Then \'如果是焦点所在单元格
If e.Col.Name = "金额公式" Then \'如果正在编辑的是县市列
If e.Col.Name = "金额公式" Then \'如果正在编辑的是县市列
If r.row("核算公式") = “按公式转出”
\'从行政区域表提取该省市的县市作为列表项目
e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = \'" & e.Row("省市") & "\'")
e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = \'" & e.Row("省市") & "\'")
else
e.Col.Combolist = nothing
end if
End If
End If
End If
End If
-- 发布时间：2023/3/29 11:41:00
--
e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = \'" & e.Row("省市") & "\'")
现在我使用的是下拉窗口，是用来录入自定义公式的
改为下拉窗口，要怎样改改
-- 发布时间：2023/3/29 11:57:00
--
If r.row("核算公式") = “按公式转出”
e.Col.dropForm = "窗口1"
else
e.Col.dropForm = ""
end if
-- 发布时间：2023/4/1 11:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
测试很久都不行的
此主题相关图片如下：dingtalk_20230401112558.jpg
另外我还想打开下拉窗口后，文本窗口可以提取当前下拉窗口单元格的值
-- 发布时间：2023/4/1 11:44:00
--
但凡认真看过2楼的帮助，都不会把代码放到datacolchanged事件了
-- 发布时间：2023/4/1 17:01:00
--
此主题相关图片如下：dingtalk_20230401170011.jpg
此主题相关图片如下：dingtalk_20230401165935.jpg
时不时弹出这个的
-- 发布时间：2023/4/1 17:07:00
--
很明显 代码写错了
-- 发布时间：2023/4/1 17:33:00
--
此主题相关图片如下：85.jpg
出错时老是会选定了二个单元格的，是不是这里出错呢
如果确保只能同时选择一个单元格呢
-- 发布时间：2023/4/1 17:34:00
--
If e.IsFocusCell Then
If e.Col.Name = "金额公式" Then
If e.Row("核算公式") = "按公式转出" Then
e.Col.dropForm = "自制公式"
Else
e.Col.dropForm = Nothing
End If
End If
End If