如何实现多个表和窗口，共用一个下拉窗口? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DropTable

如果从表中的某列打开下拉窗口，可以通过DropTable返回对应的表(Table类型)，通过DropCol返回对应的列(Col类型)。
有了这两个属性，不同的表或不同的列，共用一个下拉窗口，会更加方便；对下拉窗口进行条件设置也会更加容易。

在帮助中没有详细说明，在项目中没有找到这个属性。

现在想设置多个表共用一个下拉窗口，但设置不成功。

根据帮助中： 自行设计下拉目录树，设置下拉目录树，

TreeView(目录树)的NodeMouseClick事件代码设置为：

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = DataTables("行政区域").Find("省市 = '" & ps(0) & "' And 县市 = '" & ps(1) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("省市") = dr("省市")
        tr("县市") = dr("县市")
        tr("区号") = dr("区号")
        tr("邮编") = dr("邮编")
        e.Form.DropDownBox.Value = tr("县市") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
End If

需要修改吗？或还需要修改其他步骤？

多谢狐爸，试看。

放在下拉窗口或使用下拉窗口的窗口中都提示： dropcol 不是 FormEventArgs 的成员，错误： if e.dropcol.name = "a" then；

另：下拉的窗口是使用下拉窗口的窗口吗？现在有：出库、退货、回款、客户、门面、订货共六个窗口需共用下拉窗口，代码要如何设置？

谢谢！

狐爸，修改后出现提示错误。现将项目传上，麻烦帮修正一下。

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

打开录入窗口，点击县时，提示错误代码位置：窗口.列表项目.TreeView1.。。。。。，没办法录入省、市、县

多谢狐爸帮解决

狐爸，在使用列表项目过程中，发现原窗口中客户可根据县名筛选出相应的客户供录入，但现在几个窗口中筛选出的客户都是出库表中的县所筛选出的。

代码：

If e.Node.Level = 2 Then '如果单击的是第三层节点

Dim ps() As String = e.Node.FullPath.Split("\")

Dim tr As Row

If e.Form.DropTable IsNot Nothing Then

If e.Form.DropTable.Current IsNot Nothing Then

tr = e.Form.DropTable.Current

End If

Else

If e.Form.DropDownBox.BindingField > "" Then

Dim nm As String = e.Form.DropDownBox.BindingField

nm = nm.Split(".")(0)

tr = Tables(nm).Current

End If

If tr Is Nothing Then

Return

End If

Dim dr As DataRow = DataTables("行政").Find("省= '" & ps(0) & "' And 市= '" & ps(1) & "' And 县= '" & ps(2) & "'" )

If dr IsNot Nothing Then '如果在行政区划表找到对应的行,则将此行的值写入出库表的当前行.

tr("省") = dr("省")

tr("市") = dr("市")

tr("县") = dr("县")

e.Form.DropDownBox.Value = tr("县") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

End If

e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树

End If

是否因为代码中红色部分原因？

如：门面窗口中Textchanged事件代码：

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

Dim txt As String = e.sender.Text

Dim tbl As Table = Tables("客户录入_Table1")

If txt = "" Then

tbl.Filter = "县 = '" & Tables("门面").current("县") & "'"

Else

txt = "'*" & txt & "*'"

tbl.Filter = "县 = '" & Tables("门面").current("县") & "' And 客户 Like " & txt

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多个表和窗口，共用一个下拉窗口.table

[此贴子已经被作者于2013-5-27 11:15:09编辑过]

主题：如何实现多个表和窗口，共用一个下拉窗口?