Foxtable(狐表)用户栏目专家坐堂 → 下拉窗口值无法保存


  共有5204人关注过本帖树形打印复制链接

主题:下拉窗口值无法保存

帅哥哟,离线,有人找我吗?
fntfgz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:424 积分:5115 威望:0 精华:0 注册:2012/11/16 8:21:00
下拉窗口值无法保存  发帖心情 Post By:2022/6/7 16:03:00 [只看该作者]

我做了个下拉窗口,然后表格和窗体中都有调用,点确定后,表格中就可以更新数据,窗体中就无法更新,请老师
下面是确定按钮里的代码,请问老师可能是哪里出的问题
Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked  Then  ' 这个节点选中的话
        Dim pd As WinForm.TreeNode = nd.ParentNode '获取父节点
        If pd IsNot Nothing Then  '有父节点
            If pd.Checked = False  Then '父节点没有选中
                s = s & "," & nd.name
            End If
        Else  '没有父节点
            s = s & "," & nd.name
        End If        
    End If    
Next

e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown


图片点击可在新窗口打开查看此主题相关图片如下:截图_20220607160436.gif
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/6/7 16:05:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/7 16:11:00 [只看该作者]

调试

Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked  Then  ' 这个节点选中的话
msgbox(nd.name)
        Dim pd As WinForm.TreeNode = nd.ParentNode '获取父节点
        If pd IsNot Nothing Then  '有父节点
            If pd.Checked = False  Then '父节点没有选中
                s = s & "," & nd.name
            End If
        Else  '没有父节点
            s = s & "," & nd.name
        End If 
msgbox(s)       
    End If    
Next
msgbox(s)      
e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown

 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:424 积分:5115 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By:2022/6/7 16:25:00 [只看该作者]

明白,谢谢老师

 回到顶部