Foxtable(狐表)用户栏目专家坐堂 → 从字符串“”到类型“Date”的转换无效


  共有1939人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zoyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
从字符串“”到类型“Date”的转换无效  发帖心情 Post By:2018/7/16 20:43:00 [只看该作者]

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
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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/16 21:03:00 [只看该作者]

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

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
End With
With wb.AddArticle("","ar1")
    .AddTitle("h1","备注")
    .AddContent("设置每天供应的菜品,需每天设置.")
End With
e.WriteString(wb.Build)

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2018/7/16 21:30:00 [只看该作者]

编译错误

图片点击可在新窗口打开查看此主题相关图片如下: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/16 21:36:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2018/7/16 21:37:00 [只看该作者]

找到原因    谢谢有点蓝

 回到顶部