| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 运行错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191040) |
| -- 作者：良才 -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 )
|
| -- 作者：良才 -- 发布时间：2024/3/23 11:11:00 -- 谢谢 |