Foxtable(狐表)用户栏目专家坐堂 → 运行错误


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

主题:运行错误

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


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
运行错误  发帖心情 Post By:2024/3/22 22:04:00 [只看该作者]

从字符串“”到类型“Double”的转换无效。求指教


Dim max As String = DataTables("流水明细").Compute("Max(月份)", "合作人 = '" & e.Form.Controls("Lu1").Value & "'")
Dim SQL As String = IIf(Mid(max, 6, 2) < 12, Mid(max, 1, 4) & "-0" & Mid(max, 6, 2) + 1, Mid(max, 1, 4) + 1 & "-01")
e.Sender.ComboList = max & "|" & SQL
[此贴子已经被作者于2024/3/22 22:04:35编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/23 9:31:00 [只看该作者]

调试

msgbox("合作人 = '" & e.Form.Controls("Lu1").Value & "'")
Dim max As String = DataTables("流水明细").Compute("Max(月份)", "合作人 = '" & e.Form.Controls("Lu1").Value & "'")
msgbox(max)
Dim SQL As String = IIf(Mid(max, 6, 2) < 12, Mid(max, 1, 4) & "-0" & Mid(max, 6, 2) + 1, Mid(max, 1, 4) + 1 & "-01")
msgbox(SQL )
e.Sender.ComboList = max & "|" & SQL
msgbox(e.Sender.ComboList )

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


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2024/3/23 11:11:00 [只看该作者]

谢谢

 回到顶部