切换表中下拉窗口出现的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在表中切换下拉窗口，在表的属性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

如果将代码 Dim tbc As Table = Tables("客户") 换成Dim tbc As Table = Tables("客户窗口_table1")

出现错误：“不存在名称为"客户窗口_table1"的table ,该窗口副本已设正true

请教如何解决？

我在 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

在 keypressedit 事件中设为：

If e.Col.Name = "科目代码" Then

If e.Col.DroppedDown = False

e.Col.OpenDropDown

End If

在项目 afteropenproject 中：

Tables("录入").Cols("科目代码").DropForm = "下拉窗口"

还是出现错码提示：“不存在名称为"客户窗口_table1"的table ，如果将， Dim tbb As Table = Tables("客户窗口_table1")改为 Dim tbb As Table = Tables("客户表")

出现下拉窗口，但是窗口中的内容（TABLE表）不能显现。请才能师指点。

我在试编一个财务的凭证录入，第一个下拉窗口是“会计科目”，当会计代码是“1131”（应收账款）时，下拉窗口换成“客户的窗口”。切换时出现问题，也就是管理项目1中的问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

主题：切换表中下拉窗口出现的问题