这个代码报错类型错误怎么回事 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d1 As Date = e.Form.Controls("B").Value

Dim d2 As Date = e.Form.Controls("C").Value

Dim cmb As WinForm.ComboBox

cmb = Forms("窗口2").Controls("ComboBox1")

Dim n As Integer = cmb.ComboList.split("|").Length

If cmb.SelectedIndex < n -1 Then

cmb.SelectedIndex = cmb.SelectedIndex + 1

End If

With DataTables("生产记录")

.LoadFilter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "# and 序号 = '" & cmb.text & "'"

.Load()

End With

e.form.controls("E").text = cmb.SelectedIndex+1

Dim b1 As New GroupTableBuilder("统计表3",DataTables("生产记录"))

b1.Groups.AddDef("日期")

b1.Groups.AddDef("时间")

b1.Groups.AddDef("配方名称")

b1.Groups.AddDef("原料名称")

b1.Groups.AddDef("设定值")

b1.Groups.AddDef("实际值")

b1.Groups.AddDef("误差值")

b1.Build

MainTable = Tables("统计表3")

主题：这个代码报错类型错误怎么回事