Foxtable(狐表) → 用户栏目 → 专家坐堂 → 'DataTables("制令单明细").sqlReplaceFor("客户排程",Tables("制令单").current("客户排程"),"单据号='" & Tables("制令单").current("单据号") & "'") 出错了 老师麻烦看一下？


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

主题：'DataTables("制令单明细").sqlReplaceFor("客户排程",Tables("制令单").current("客户排程"),"单据号='" & Tables("制令单").current("单据号") & "'") 出错了 老师麻烦看一下？
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		'DataTables("制令单明细").sqlReplaceFor("客户排程",Tables("制令单").current("客户排程"),"单据号='" & Tables("制令单").current("单据号") & "'") 出错了 老师麻烦看一下？  发帖心情 Post By：2023/2/16 9:31:00 [显示全部帖子]

'DataTables("制令单明细").sqlReplaceFor("客户排程",Tables("制令单").current("客户排程"),"单据号='" & Tables("制令单").current("单据号") & "'") 出错了  老师麻烦看一下？

客户排程是日期时间型
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 9:46:00 [显示全部帖子]

语句已终止。
从 varchar 数据类型到 datetime 数据类型的转换产生一个超出范围的值。
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 10:15:00 [显示全部帖子]

DataTables("制令单明细").sqlReplaceFor("客户排程",format(Tables("制令单").current("客户排程"),"yyyy-MM-dd HH:mm:ss"),"单据号='" & Tables("制令单").current("单据号") & "'")
 这样写对吗
[此贴子已经被作者于2023/2/16 10:15:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 10:21:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 10:43:00 [显示全部帖子]

我找不出来 在哪里少括号
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 11:05:00 [显示全部帖子]

DataTables("制令单明细").sqlReplaceFor("客户排程",format(Tables("制令单").current("客户排程"),"yyyy-MM-dd HH:mm:ss"),"单据号='" & Tables("制令单").current("单据号") & "'")

 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 14:07:00 [显示全部帖子]

If Tables("制令单").Current Is Nothing
    Return
End If
If  Tables("制令单").current("领料标志")="已领料"
    messagebox.show("已经领料审核,不需重复审核!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
    Return
End If
''''
'重新生成领料NO
Dim llno As String
Dim d As Date = Date.today
Dim bh As String = "YL" &  Format(d,"yyMMdd") '生成其他加工收发号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
'max = DataTables("原料入库单").sqlCompute("Max(单据号)","单据号 like '" & bh & "-%'"  &" And 单据状态='已审核'and 单据性质='原料入库单'" )
max = DataTables("制令单").sqlCompute("Max(NO)","NO like '" & bh & "-%'" &"")
If max > "" Then '如果存在最大其他加工收发号
    idx = CInt(max.Substring(9,3)) + 1 '获得最大其他加工收发号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
llno=bh & "-" & Format(idx,"000")
If Tables("制令单").Current.IsNull("NO")
    ' And Tables("制令单单明细").Rows.Count=0
    Tables("制令单").Current("NO")=llno
End If

''''


''
If  Tables("制令单").Current IsNot Nothing Then
    Tables("制令单").current("领料标志")="已领料"
    DataTables("制令单明细").sqlReplaceFor("NO",Tables("制令单").current("NO"),"单据号='" & Tables("制令单").current("单据号") & "'" )
    DataTables("制令单明细").sqlReplaceFor("领料标志",Tables("制令单").current("领料标志"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("线别",Tables("制令单").current("线别"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("工单号码",Tables("制令单").current("工单号码"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("日期",Tables("制令单").current("日期"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("发料日期",Tables("制令单").current("发料日期"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("结单日期",Tables("制令单").current("结单日期"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("制程",Tables("制令单").current("制程"),"单据号='" & Tables("制令单").current("单据号") & "'")
    DataTables("制令单明细").sqlReplaceFor("料号",Tables("制令单").current("料号"),"单据号='" & Tables("制令单").current("单据号") & "'")
  DataTables("制令单明细").sqlReplaceFor("订单PO号",Tables("制令单").current("订单PO号"),"单据号='" & Tables("制令单").current("单据号") & "'")
   DataTables("制令单明细").sqlReplaceFor("工令",Tables("制令单").current("工令"),"单据号='" & Tables("制令单").current("单据号") & "'")
'If  Tables("制令单").current("客户排程") IsNot Nothing
'DataTables("制令单明细").sqlReplaceFor("客户排程",Tables("制令单").current("客户排程"),"单据号='" & Tables("制令单").current("单据号") & "'")
'End If
DataTables("制令单明细").sqlReplaceFor("客户排程",format(Tables("制令单").current("客户排程"),"yyyy-MM-dd HH:mm:ss"),"单据号='" & Tables("制令单").current("单据号") & "'")

 ' DataTables("制令单明细").sqlReplaceFor("周别",Tables("制令单").current("周别"),"单据号='" & Tables("制令单").current("单据号") & "'")
    '**
    e.Form.Controls("combobox2").readonly=BooleanEnum.True
    e.Form.Controls("combobox1").readonly=BooleanEnum.True
    e.Form.Controls("combobox4").enabled=False
    e.Form.Controls("TextBox2").readonly=BooleanEnum.True
    e.Form.Controls("TextBox3").readonly=BooleanEnum.True
    e.Form.Controls("DateTimePicker1").readonly=BooleanEnum.True
    e.Form.Controls("DateTimePicker2").readonly=BooleanEnum.True
    e.Form.Controls("DateTimePicker3").readonly=BooleanEnum.True
    '**
    Dim pic As WinForm.PictureBox = Forms("新增生产领料单").Controls("PictureBox1")
    If Tables("制令单").Current("领料标志")="已领料"
        pic.Image = getimage("已领料.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
        Tables("制令单明细").AllowEdit = False
        e.Form.Controls("Button9").enabled=False
    End If
    If Tables("制令单").Current("领料标志")<>"已领料"
        Tables("制令单明细").AllowEdit = True
        e.Form.Controls("Button9").enabled=True
        pic.Image = getimage("草稿.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
    
    messagebox.show("审核完成!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
End If
'DataTables("制令单明细").save()
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2023/2/16 14:46:00 [显示全部帖子]

图片点击可在新窗口打开查看

出现这个问题
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询