- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个代码报错类型错误怎么回事 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146594)
-- 发布时间：2020/2/27 11:13:00
-- 这个代码报错类型错误怎么回事
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")
-- 发布时间：2020/2/27 11:47:00
--
截图,把错误提示显示看看
-- 发布时间：2020/2/27 12:39:00
-- 故障图片
-- 发布时间：2020/2/27 14:25:00
--
请正确上传文件:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
如果提示上传出错，重复多试几次