以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查询窗口如何与录入窗口共用下拉窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34599)

--  作者:dengzhihao
--  发布时间:2013/6/9 22:51:00
--  [求助]查询窗口如何与录入窗口共用下拉窗口
在录入窗口中有个“客户名称”的下拉窗口
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("客户名称")
        e.Form.DropDownBox.Value = tr("客户名称") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If
现在是在查询窗口同意也用这个下拉窗口,问题是当选择“客户名称”的同时,改变了原表中的“客户名称”!


现请教如何共用下拉窗口,在查询窗口选择“客户名称”时,不会同时改变原来表中的“客户名称”!

--  作者:程兴刚
--  发布时间:2013/6/9 22:56:00
--  

1、用全局变量保存窗口名称,打开窗口时就将该窗口的名称写入全局变量(两个窗口打开时均需设置全局变量的值)!

2、判断全局变量等当前窗口名,执行您上面的代码,等于另一窗口,执行其他代码即可,看您的功底,这样提示一下您应该可以搞定!

[此贴子已经被作者于2013-6-9 22:56:52编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/6/13 9:29:00
--  

你可以看看:

http://www.foxtable.com/help/topics/2704.htm

http://www.foxtable.com/help/topics/2705.htm

 

 

还有这个帖子的12楼:

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33606&authorid=0&page=2&star=1

 


--  作者:zyqzyy
--  发布时间:2013/12/12 11:17:00
--  

要学习!