......
Dim t As Table = Tables("URL总表_Tbl_Main")
Dim filter As String = t.Filter
Dim Int As Integer = t.Position '获取行位置
Dim p As point = t.ScrollPosition '获取行在屏幕中位置
t.StopRedraw
t.DataTable.save(True)
t.DataTable.Load(True)
t.Sort = "序号"
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw
Tables("URL总表_Tbl_Main1").DataTable.Save
Tables("URL总表_Tbl_Main1").DataTable.Load
Tables("URL总表_Tbl_Main1").Sort = "序号"
DataTables("操作日志").save
If Forms("URL总表").Controls("Cmb_FilterCol").Value = "" Then Return
Functions.Execute("BuildFilterTree",Forms("URL总表").Controls("Tvw_Left"),Forms("URL总表").Name & "_Tbl_Main",Forms("URL总表").Controls("Cmb_FilterCol").Value.Replace(",","|"))
'Forms("URL总表").Controls("Tvw_Left").Nodes.Clear() '清除现有节点
'Forms("URL总表").Controls("Tvw_Left").BuildTree("url表", "类型|部门|客户端二级栏目|客户端三级栏目")
'Forms("URL总表").Controls("Tvw_Left").Nodes.Insert("显示所有行",0)
t.Filter = filter
[此贴子已经被作者于2016/12/27 17:44:27编辑过]
加好友 
发短信
Post By：2016/12/27 17:44:00 [显示全部帖子]
