- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 删除一行数据，保存后,目录树怎么更新？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101840)
-- 发布时间：2017/6/8 10:58:00
-- 删除一行数据，保存后,目录树怎么更新？
删除行，目录树不可以刷新，高手帮忙看看了
增加行，目录树可以刷新
项目密码： fxz
项目下载路径：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=101778
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:最新版本.foxdb |
[此贴子已经被作者于2017/6/8 11:28:51编辑过]
-- 发布时间：2017/6/8 11:01:00
--
Dim
t As Table = Tables("主表")
t.current.save
Dim
trv As WinForm.TreeView = Forms("主窗口").Controls("TreeView1")
Dim
p As object = trv
Dim
cs() As String = {"功能主题", "分类", "工作项目"}
For
Each c As String In cs
If p.Nodes.Contains(t.current(c)) Then
p = p.Nodes(t.current(c))
Else
p = p.nodes.Add(t.current(c))
End If
Next
MessageBox.Show("保存成功")
或者这个代码：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("主表","工作项目|分类|功能主题")
这段代码加到，删除行，按钮代码那个位置才对呢？指点一下
试过都不行，搞不定
[此贴子已经被作者于2017/6/8 11:08:05编辑过]
-- 发布时间：2017/6/8 11:09:00
--
项目下载不了。重新上传一下
-- 发布时间：2017/6/8 11:23:00
--
项目重新上传在1楼了，大师帮忙看看了
[此贴子已经被作者于2017/6/8 11:35:20编辑过]
-- 发布时间：2017/6/8 11:47:00
--
删除按钮
Dim dt As Table=Tables("主窗口_table1") \'注意这里一定是绑定的副表,如果是tables("业务")那么如果不保存数据将不能删除
Dim rs As List(of Row) = dt.GetCheckedRows
If rs.Count > 0 Then
Dim Result As DialogResult \'加一个提示窗口,如果点确认就删除,点否就返回
result= MessageBox.show("您确认要删除吗?","~温馨提示~",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result=DialogResult.Yes Then
For Each r As Row In rs
r.Delete
Next
dt.save
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("主表","工作项目|分类|功能主题")
trv.ExpandAll
End If
Else
MessageBox.show("您未选择行,请选择后再点击删除按钮","~温馨提示~",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If