.NET Framework 版本：2.0.50727.6421

Foxtable 版本：2014.11.11.1

错误所在事件：窗口,月度查询,AfterLoad

详细错误信息：

添加或减去的值产生无法表示的 DateTime。

参数名: months

Dim str As String = ""

Dim maxd As Date = DataTables("月度查询").Compute("max(应维护日期)")

Dim mind As Date = DataTables("月度查询").Compute("min(应维护日期)")

Do While mind <= maxd

    str &= Format(maxd, "yyyy年MM月|")

    maxd = maxd.AddMonths(-1)

Loop

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

cbx.ComboList = str.Trim("|")