窗口的 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") '清空表内容