标题：运行错误

1楼

良才发表于：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楼

有点蓝 发表于：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楼

良才发表于：2024/3/23 11:11:00

谢谢

共3 条记录, 每页显示 10 条, 页签: [1]