主题：如何在窗口中使用临时表

窗口的 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