AfterLoad事件
Dim t As Table = Tables("统计")Dim idx As Integer = t.findRow("年份 = '" & Date.Today.Year & "' and 月份 = '" & Date.Today.Month & "'")t.position = idx