以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在窗口中使用临时表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133943)
--  作者：ts9277
--  发布时间：2019/4/23 21:37:00
--  如何在窗口中使用临时表

图片点击可在新窗口打开查看此主题相关图片如下：4-23-4.jpg
图片点击可在新窗口打开查看
老师我想问下，能否在窗口中直接显示创建的临时表，想要实现在图片中左表 单击某一行，在右边能动态显示指定目录下的文件信息
目前的情况，窗口右表无法动态显示文件夹的内容信息（临时表可以动态显示）

窗口的 AfterLoad 代码

Dim dtb As new  DataTableBuilder("文件列表") \'创建临时表

dtb.adddef("文件名",Gettype(String),32)

dtb.adddef("文件大小",Gettype(Integer))

dtb.adddef("最后修改日期",Gettype(Date))

dtb.Build()

MainTable= Tables("文件列表")


在左表的鼠标Click事件中的代码

Dim r As Row=e.Table.current

Dim tb As Table=Tables("文件列表")

DataTables("文件列表").DeleteFor("文件名 is not null") \'清空表内容


Dim lj As String=r("路径")


If FileSys.GetFiles(lj).Count>1 Then

MessageBox.Show(FileSys.GetFiles(lj).Count)

    For Each File As String In FileSys.GetFiles(lj)

Dim ifo As new FileInfo(file)

\'MessageBox.Show( Ifo.Name & vbcrlf & Ifo.Length/1024 & vbcrlf & Ifo.LastAccessTime  )

 Dim r1 As Row=tb.addnew       

        r1("文件名")=Ifo.Name

        r1("文件大小")=Ifo.Length/1024

        r1("最后修改日期")=Ifo.LastAccessTime

    Next

End If
--  作者：ts9277
--  发布时间：2019/4/23 21:41:00
--  
把右表绑定到临时表“文件列表” 且 使用正本或者副本表都无法实现动态显示
--  作者：有点蓝
--  发布时间：2019/4/23 22:26:00
--  

窗口的 AfterLoad 代码

Dim dtb As new  DataTableBuilder("文件列表") \'创建临时表

dtb.adddef("文件名",Gettype(String),32)

dtb.adddef("文件大小",Gettype(Integer))

dtb.adddef("最后修改日期",Gettype(Date))

tables("窗口1_table2").datasource = dtb.Build(true)


在左表的鼠标Click事件中的代码

Dim r As Row=e.Table.current

Dim tb As Table=tables("窗口1_table2")

tb.DataTable.DeleteFor("文件名 is not null") \'清空表内容

[此贴子已经被作者于2019/4/23 22:26:47编辑过]
--  作者：ts9277
--  发布时间：2019/4/24 21:42:00
--  
谢谢，可以使用了