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


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

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107744 积分：548059 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/16 11:08:00 [只看该作者]

贴出对应事件的完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107744 积分：548059 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/16 14:21:00 [只看该作者]

我复制代码到按钮里没有问题哦。

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

出现这个问题
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107744 积分：548059 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/16 15:10:00 [只看该作者]

调试看哪一句代码有问题

 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询