- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 切换表中下拉窗口出现的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108974)
-- 发布时间：2017/11/1 16:56:00
-- 切换表中下拉窗口出现的问题
在表中切换下拉窗口，在表的属性changedit中代码如下：
If e.Col.name = "科目代码" Then
If e.Col.DroppedDown = True
Dim txt As String = e.text
Dim tbb As Table = Tables("下拉_table1")
If txt = "1131"
Forms("下拉").DropDownBox.CloseDropdown
Tables("主表").Cols("科目代码").DropForm = "客户窗口"
Dim tbc As Table = Tables("客户")
\' Dim tbc As Table = Tables("客户窗口_table1")
End If
End If
End If
如果将代码 Dim tbc As Table = Tables("客户") 换成Dim tbc As Table = Tables("客户窗口_table1")
出现错误：“不存在名称为"客户窗口_table1"的table ,该窗口副本已设正true
请教如何解决？
-- 发布时间：2017/11/1 17:33:00
--
如果你窗口【客户窗口】没有打开，就不能直接使用表【客户窗口_table1】
-- 发布时间：2017/11/3 11:06:00
--
我在 changedit 事件中改为：
If e.Col.Name = "科目代码" Then
If e.text <> "1131"
If Tables("录入").Cols("科目代码").DropForm <> "下拉窗口" Then
Tables("录入").Cols("科目代码").DropForm = "下拉窗口"
End If
Dim tbb As Table = Tables("下拉窗口_table1")
End If
If e.text = "1131" Then
If Tables("录入").Cols("科目代码").DropForm <> "客户窗口" Then
Tables("录入").Cols("科目代码").DropForm = ""
Tables("录入").Cols("科目代码").DropForm = "客户窗口"
End If
Dim tbb As Table = Tables("客户窗口_table1")
End If
End If
在 keypressedit 事件中设为：
If e.Col.Name = "科目代码" Then
If e.Col.DroppedDown = False
e.Col.OpenDropDown
End If
End If
在项目 afteropenproject 中：
Tables("录入").Cols("科目代码").DropForm = "下拉窗口"
还是出现错码提示：“不存在名称为"客户窗口_table1"的table ，如果将， Dim tbb As Table = Tables("客户窗口_table1")改为 Dim tbb As Table = Tables("客户表")
出现下拉窗口，但是窗口中的内容（TABLE表）不能显现。 请才能师指点。
-- 发布时间：2017/11/3 11:22:00
--
请老师指点。
-- 发布时间：2017/11/3 12:09:00
--
你看懂你的问题，不知道你要做什么。
请上传具体实例说明问题。
-- 发布时间：2017/11/3 15:04:00
--
我在试编一个财务的凭证录入，第一个下拉窗口是“会计科目”，当会计代码是“1131”（应收账款）时，下拉窗口换成“客户的窗口”。切换时出现问题，也就是管理项目1中的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2017/11/3 15:21:00
--
不能切换窗口，建议你改成隐藏显示表。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |