从字符串“”到类型“Date”的转换无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim wb As New WeUI

wb.AddForm("","form1","dclb.htm")

With wb.AddListGroup(" ", "lsg1","")

With wb.AddInputGroup("","ipg1","菜单供应设置")

Dim rq1 As Date

rq1 = .AddInput("rq","日期","date").Value

With .AddInput("rq","日期","date")

.Enabled = False

.Value = Format(rq1,"dddd")

End With

With .AddInput("xq","星期","text")

.Enabled = False

.Value = Format(rq1,"dddd")

End With

With .AddInput("djsj","登记时间","datetime-local")

.value = Format(Date.Now,"HH:mm")

.Min = "08:00" '输入的事件必须在8:00到12:00之间

.Max = "12:00"

End With

.AddInput("zc","早餐","text")

.AddInput("wc","午餐","text")

.AddInput("sf","晚餐","text")

End With

With wb.AddArticle("","ar1")

.AddTitle("h1","备注")

.AddContent("设置每天供应的菜品,需每天设置.")

End With

e.WriteString(wb.Build)

.NET Framework 版本：2.0.50727.8745

Foxtable 版本：2018.7.9.1

错误所在事件：自定义函数订餐类别

详细错误信息：

调用的目标发生了异常。

从字符串“”到类型“Date”的转换无效。

[此贴子已经被作者于2018/7/16 20:57:46编辑过]

自定义函数“订餐类别”完整代码贴出来

Dim wb As New WeUI

wb.AddForm("","form1","dclb.htm")

With wb.AddListGroup(" ", "lsg1","")

With wb.AddInputGroup("","ipg1","菜单供应设置")

With .AddInput("rq","日期","date")

.Enabled = False

.Value = rq

End With

With .AddInput("xq","星期","text")

.AddInput("xq","星期","text").Enabled = False

.AddInput("xq","星期","text").Value = Format(rq,"dddd")

End With

With .AddInput("djsj","登记时间","time")

.value = Format(Date.Now,"HH:mm")

.Min = "08:00" '输入的事件必须在8:00到12:00之间

.Max = "12:00"

End With

.AddInput("zc","早餐","text")

.AddInput("wc","午餐","text")

.AddInput("sf","晚餐","text")

End With

With wb.AddArticle("","ar1")

.AddTitle("h1","备注")

.AddContent("设置每天供应的菜品,需每天设置.")

End With

e.WriteString(wb.Build)

编译错误

此主题相关图片如下：360截图20180716212812594.jpg

我是用表动态合成网页的代码

Dim drx As DataRow = DataTables("订餐网页表").SQLFind("网页='" & e.Path & "'")

If drx IsNot Nothing Then

e.AsyncExecute = True '通知系统,将采用异步方式生成网页

Functions.AsyncExecute(drx("函数名称"),e) '异步调用函数生成网页

End If

合成后输出完整的结果查看，with 和end with不成对

找到原因谢谢有点蓝

主题：从字符串“”到类型“Date”的转换无效