- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]带查找功能的下拉目录树，增加一个 确定按钮 的代码怎么写？谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82953)
-- 发布时间：2016/3/28 20:43:00
-- [求助]带查找功能的下拉目录树，增加一个 确定按钮 的代码怎么写？谢谢
此主题相关图片如下：带查找功能的下拉目录树，确定按钮.png
想把 下一个按钮移动到上面后，增加一个 确定按钮，不知道代码怎么写
-- 发布时间：2016/3/28 20:49:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then \'获取当前节点位置.
Dim tr As Row = Tables("客户").Current
Dim dr As DataRow = trv.SelectedNode.DataRow \'获取生成此节点的DataRow
tr("省市") = dr("省市")
tr("县市") = dr("县市")
tr("区号") = dr("区号")
tr("邮编") = dr("邮编")
e.Form.DropDownBox.Value = tr("县市")
e.Form.DropDownBox.CloseDropdown()
End If
-- 发布时间：2016/3/28 20:57:00
--
红袍大师，如果 是当前表呢，因为这个 目录树要在多个表用，不止在 客户 这个表。感谢红袍大师的速度够快，刚发的贴
-- 发布时间：2016/3/28 21:00:00
--
打开窗口之前赋值
vars("表") = Tables("客户")
--------------------
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then \'获取当前节点位置.
Dim tr As Row = vars("表").Current
Dim dr As DataRow = trv.SelectedNode.DataRow \'获取生成此节点的DataRow
tr("省市") = dr("省市")
tr("县市") = dr("县市")
tr("区号") = dr("区号")
tr("邮编") = dr("邮编")
e.Form.DropDownBox.Value = tr("县市")
e.Form.DropDownBox.CloseDropdown()
End If
-- 发布时间：2016/3/28 21:12:00
--
在其他表里调用这个窗口不行，还没理解，大师再指定一下了。还是不理解，为什么不是 CurrentTable.Current呢？
-- 发布时间：2016/3/28 21:15:00
--
想通用目录树窗口里的确定按钮，在多个表通用。其他表这里写代码了，也不行，怎么改呢？
此主题相关图片如下：fff.png
-- 发布时间：2016/3/28 22:00:00
--
如果是下拉窗口，这样写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then \'获取当前节点位置.
Dim tr As Row = e.Form.DropTable.Current
Dim dr As DataRow = trv.SelectedNode.DataRow \'获取生成此节点的DataRow
tr("省市") = dr("省市")
tr("县市") = dr("县市")
tr("区号") = dr("区号")
tr("邮编") = dr("邮编")
e.Form.DropDownBox.Value = tr("县市")
e.Form.DropDownBox.CloseDropdown()
End If
http://www.foxtable.com/help/topics/2893.htm
-- 发布时间：2016/3/28 22:05:00
--
此主题相关图片如下：w.png
上面的代码报错的，有问题
-- 发布时间：2016/3/28 22:13:00
--
写错
Dim tr As Row = e.Form.DropTable.Current
-- 发布时间：2016/3/28 22:17:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then \'获取当前节点位置.
Dim tr As Row = e.Form.DropTable.Current
Dim dr As DataRow = trv.SelectedNode.DataRow \'获取生成此节点的DataRow
tr("省市") = dr("省市")
tr("县市") = dr("县市")
tr("区号") = dr("区号")
tr("邮编") = dr("邮编")
e.Form.DropDownBox.Value = tr("县市")
e.Form.DropDownBox.CloseDropdown()
End If
ok了，多了个Current，谢老师