专家坐堂-如何设置超链接（链接到同一个excel工作簿的其他工作表）Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As Table = Tables("项目总表")

Dim dt1 As Table = Tables("项目总表.AA")

Dim Book As New XLS.Book \'定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表

Dim Style As Xls.Style = Book.NewStyle \'新建一个样式

Style.BackColor = Color.Red \'样式的背景颜色设为红色

For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题

Sheet(0, c).Value = dt.Cols(c).Name

For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据

CurrentTable.Position = r

book.Sheets.Add(dt.rows(r)(0))

Dim Sheet1 As XLS.Sheet = Book.Sheets(r+1) \'循环引用工作簿的工作表

For c1 As Integer = 0 To dt1.Cols.Count -1

Sheet1(0, c1).Value = dt1.Cols(c1).Name

For r1 As Integer = 0 To dt1.Rows.Count - 1

For c0 As Integer = 0 To dt1.Cols.Count -1

Sheet1(r1 +1, c0).Value = dt1.rows(r1)(c0)

For c As Integer = 0 To dt.Cols.Count -1

Sheet(r +1, c).Value = dt.rows(r)(c)

Sheet(r+1,0).Hyperlink = Book.Sheets(r+1)（狐狸爸爸帮我看看这句代码该怎么改）