主题：窗口导航统计

Dim Page As WinForm.TopicPage
Dim dr As DataRow = e.DataRow
Dim d As Date = dr("开piao月份")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim cnt1 As Integer = DataTables("开piao资料").Compute("Count(销售数量)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开piao资料").Compute("Count(销售金额)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("本月销售", "本月销售")
Page.Links.Add("销售数量", "销售数量(" & cnt1 & ")")
Page.Links.Add("销售金额", "销售金额(" & cnt2 & ")")

提示这句活错误，Dim dr As DataRow = e.DataRow  在表格是这样变量的，，在窗口要怎么改的，不会了，老师给讲解一下谢谢