专家坐堂-狐狸爸爸能做个表格视图左右移动例子吗Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim fl As String = "d:\\web\\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return \'这里必须返回

End Select

End If

Select Case e.Path

Case "test.htm"

Dim wb As New WeUI

wb.InsertHTML("<div style=\'height: 335px;width:300px;overflow: auto;\'>")

With wb.AddTable("","Table1")

.Attribute= "style=\'width:500px;height:auto\'"

.head.AddRow("部门","姓名","年龄","电话","地址") \'表头

.body.AddRow("技术部","张三","36","110","中国北京") \'数据

.body.AddRow("技术部","李四","38","110","中国上海")

.body.AddRow("技术部","王五","39","110","中国深圳")

.body.AddRow("生产部","赵六","39","110","中国深圳")

.body.AddRow("生产部","刘七","39","110","中国深圳")

End With

wb.InsertHTML("</div>")

e.WriteString(wb.Build)

End Select