专家坐堂-设置条件打开不同的下拉窗口Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置条件打开不同的下拉窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154765)

--  作者：aza520
--  发布时间：2020/9/26 12:03:00
--  设置条件打开不同的下拉窗口

我在项目的AfterOpenProject事件设置以下代码，想根据设置的条件打开不同的下拉窗口，但是实现不了，总是打开"征地补偿标准"窗口，请问老师是条件设置不对吗？

If Tables("S征地记录").Current("项目名称") = "富丹路二期" AndAlso Tables("S征地记录").Current("县") = "大浪镇" Then
Tables("S征地记录.S征地明细").Cols("地类").DropForm = "征地补偿标准2"
Else
Tables("S征地记录.S征地明细").Cols("地类").DropForm = "征地补偿标准"
End If

--  作者：有点蓝
--  发布时间：2020/9/27 9:06:00
--
代码放到S征地明细的prepareedit事件

if e.col.name = "地类" andalso Tables("S征地记录").Current isnot nothing
If Tables("S征地记录").Current("项目名称") = "富丹路二期" AndAlso Tables("S征地记录").Current("县") = "大浪镇" Then
e.col.DropForm = "征地补偿标准2"
Else
e.col.DropForm = "征地补偿标准"
End If
end if