专家坐堂-数据表显示范围Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师帮我看看，设置显示范围那代码那出错了，谢谢

Dim dst1 As Table = Tables("月生产报表")

Dim dr1 As Row = dst1.Current

Dim dst2 As Table = Tables("月生产报表")

Dim cmd As New SQLCommand

Dim cbox As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Select Case cbox.text

Case "全部"

cmd.CommandText = "execute CYMXA \'1900-1-1\',\'" & dr1("输入日期") & "\'"

Case "近6笔"

cmd.CommandText = "execute CYMXB \'" & dr1("输入日期") & "\'"

Case "近一月"

cmd.CommandText = "execute CYMXA \'" & today.AddMonths(-1) & "\',\'" & dr1("输入日期") & "\'"

Case "近三月"

cmd.CommandText = "execute CYMXA \'" & today.AddMonths(-3) & "\',\'" & dr1("输入日期") & "\'"

Case "近一年"

cmd.CommandText = "execute CYMXA \'" & today.AddYears(-1) & "\',\'" & dr1("输入日期") & "\'"

Case "近三年"

cmd.CommandText = "execute CYMXA \'" & today.AddYears(-3) & "\',\'" & dr1("输入日期") & "\'"

End Select

dst2.DataSource = cmd.ExecuteReader()

dst2.Sort = "输入日期"

For i As Integer=1 To dst2.count

Dim dr As Row = dst2.Rows(i-1)

dr("生产批号") = "" & i

dst2.AutoSizeCols()