以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下拉窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52688)
--  作者：wjliu
--  发布时间：2014/6/20 14:55:00
--  下拉窗口
两个窗口 共用一个下拉窗口 第一个窗口点下拉窗口时提示：.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.5.12.1
错误所在事件：窗口,分组,TreeView4,NodeMouseClick
详细错误信息：
未将对象引用设置到对象的实例。

可以值能被选中
第二窗口没有问题
  

下拉窗体的：nodemouseclick的代码如下：

If e.Node.Level = 4 Then \'如果单击的是第二层节点
    Dim tr As Row = Tables("个人客户信息").Current
    Dim tr1 As Row = Tables("单位客户信息").Current
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
    tr("客户分组") = dr("街道居委")
    tr1("客户分组") = dr("街道居委")
    e.Form.DropDownBox.Value = tr("客户分组") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.Value = tr1("客户分组")
    e.Form.DropDownBox.CloseDropdown()
    
End If
--  作者：Bin
--  发布时间：2014/6/20 14:59:00
--  
调试一下看看是哪一行出错, 是不是没有当前行
--  作者：有点甜
--  发布时间：2014/6/20 15:01:00
--  

 共用不是这样做的。红色代码，在进入控件的时候赋值

 

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

 

 

If e.Node.Level = 4 Then \'如果单击的是第二层节点
    Dim tr As Row = Tables(vars("表名")).Current
    If tr IsNot Nothing Then
        Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
        tr("客户分组") = dr("街道居委")
        e.Form.DropDownBox.Value = tr("客户分组") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If

 

 
--  作者：wjliu
--  发布时间：2014/6/20 15:07:00
--  
不好意思   请教老师怎么调试  
--  作者：有点甜
--  发布时间：2014/6/20 15:08:00
--  
 下拉窗口思路错了，看3楼代码和解释。
--  作者：wjliu
--  发布时间：2014/6/20 15:35:00
--  
请教老师 三楼代码红色部分在全局变量中怎么设置
--  作者：有点甜
--  发布时间：2014/6/20 15:42:00
--  

 变量名称 = 表名

 

 类型 = String

 

 默认值 = 不用填

 

 设置好全局变量以后，编写控件的enter事件，进入控件的时候，就对 vars("表名") = "表A" 进行赋值。
--  作者：wjliu
--  发布时间：2014/6/20 15:50:00
--  
理解了 谢谢老师