Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]新的订单转接代码 生效不产生效果


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

主题：[讨论]新的订单转接代码 生效不产生效果
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		[讨论]新的订单转接代码 生效不产生效果  发帖心情 Post By：2015/6/7 20:40:00 [显示全部帖子]

Dim Result As DialogResult
Result = MessageBox.Show("确定将新的订单提交到设计部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    
Dim dt1 As DataTable = DataTables("订单") '指定数据来源
Dim dt2 As DataTable = DataTables("设计部")'指定数据接受表
Dim drs As List(Of DataRow) = dt1.Select("下单设计 = true")'指定数据条件
If drs.Count > 0 Then
    Dim dr As DataRow = dt2.AddNew
    dr("订单编号") = drs(0)("订单编号")
    systemready = False
    For i As Integer = 1 To drs.Count - 1
        Dim ndr As DataRow = dt2.AddNew
        ndr("订单编号") =  drs(i)("订单编号")
    Next
    systemready = True
    DataTables("订单").DeleteFor("下单设计 = true") '删除之前的行
End If
DataTables("设计部").Save()

MessageBox.Show("好了,已经将新的订单转交给了设计部.","提示")
Else
    MessageBox.Show("好吧,等你准备好.","提示")
End If



颜色这段  高手帮我看下  那里出来问题  不执行剪切的功能。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/7 20:51:00 [显示全部帖子]

在设计部表格还是没有数据
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/7 21:01:00 [显示全部帖子]

条件存在的
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150607210002.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150607210023.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/6/7 21:06:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/7 21:07:00 [显示全部帖子]

gif
图片点击可在新窗口打开查看此主题相关图片如下：ccc.gif
图片点击可在新窗口打开查看


335779866  能远程帮我看看吗  老师
[此贴子已经被作者于2015/6/7 21:08:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/7 21:11:00 [显示全部帖子]

我是设置的按钮执行的  有执行代码



Dim Result As DialogResult
Result = MessageBox.Show("确定将新的订单提交到制造部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then

Dim dt1 As DataTable = DataTables("订单明细") '指定数据来源
Dim dt2 As DataTable = DataTables("产品制造跟踪")
Dim drs As List(Of DataRow) = dt1.Select("确认下单 = true")
If drs.Count > 0 Then
    Dim dr As DataRow = dt2.AddNew
    dr("产品名称") = drs(0)("产品名称")
    dr("产品编号") = drs(0)("产品编号")
    dr("产品小计") = drs(0)("产品小计")
    dr("产品规格_长") = drs(0)("产品规格_长")
    dr("产品规格_宽") = drs(0)("产品规格_宽")
    dr("产品规格_高") = drs(0)("产品规格_高")
    dr("产品规格_单位") = drs(0)("产品规格_单位")
    dr("产品规格_数量") = drs(0)("产品规格_数量")
    dr("产品备注") = drs(0)("产品备注")
    dr("订单编号") = drs(0)("订单编号")
    dr("产品类别") = drs(0)("产品类别")
    dr("使用区域") = drs(0)("使用区域")
    systemready = False
    For i As Integer = 1 To drs.Count - 1
        Dim ndr As DataRow = dt2.AddNew
        ndr("产品类别") = drs(i)("产品类别")
        ndr("使用区域") = drs(i)("使用区域")
        ndr("产品名称") = drs(i)("产品名称")
        ndr("产品编号") = drs(i)("产品编号")
        ndr("产品小计") = drs(i)("产品小计")
        ndr("XT_日期") = dr("XT_日期")
        ndr("产品规格_长") = drs(i)("产品规格_长")
        ndr("产品规格_宽") = drs(i)("产品规格_宽")
        ndr("产品规格_高") = drs(i)("产品规格_高")
        ndr("产品规格_单位") = drs(i)("产品规格_单位")
        ndr("产品规格_数量") = drs(i)("产品规格_数量")
        ndr("产品备注") = drs(i)("产品备注")
        ndr("制造编号") = dr("制造编号")
        ndr("订单编号") = drs(i)("订单编号")
    Next
    systemready = True
    DataTables("订单明细").DeleteFor("确认下单 = true")
End If
DataTables("产品制造跟踪").Save()

MessageBox.Show("好了,已经将新的订单转交给了制造部.","提示")
Else
    MessageBox.Show("好吧,等你准备好.","提示")
End If


这个是执行的    但是不懂有颜色的地方舍意思，
[此贴子已经被作者于2015/6/7 21:13:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/8 12:38:00 [显示全部帖子]

问题查出来了  我的关联表 勾选了同步删除，才造成  剪切后删除     同时也删除了  新复制过去的数据。

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/8 18:07:00 [显示全部帖子]

If e.Row("客服人员") = User.Name Then
        If e.Row.isnull("接单日期")  OrElse e.Row.isnull("下单日期") OrElse  e.Row.isnull("客服备注") OrElse  e.Row.isnull("交货日期") OrElse  e.Row.isnull("发货地址") OrElse  e.Row.isnull("订单内容") OrElse e.Row.isnull("材质") OrElse e.Row.isnull("颜色") Then
            e.Cancel = True '则取消编辑
            messagebox.show( "接单,下单,交货日期,材质,颜色 订单内容,备注 发货地址不能为空" ,"提示" )
            forms("订单必填项").show


我想把这个判断加入到



Dim Result As DialogResult

Result = MessageBox.Show("确定将新的订单提交到设计部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

   

    Dim dt1 As DataTable = DataTables("订单") '指定数据来源

    Dim dt2 As DataTable = DataTables("设计部")'指定数据接受表

    Dim drs As List(Of DataRow) = dt1.Select("下单设计 = true")'指定数据条件

    If drs.Count > 0 Then

        Dim dr As DataRow = dt2.AddNew

        dr("订单编号") = drs(0)("订单编号")

        dr("终端称呼") = drs(0)("终端称呼")

        dr("订单类别") = drs(0)("订单类别")

        dr("交货日期") = drs(0)("交货日期")

        dr("客服备注") = drs(0)("客服备注")

        systemready = False

        For i As Integer = 1 To drs.Count - 1

            Dim ndr As DataRow = dt2.AddNew

            ndr("订单编号") =  drs(i)("订单编号")

            ndr("终端称呼") = drs(i)("终端称呼")

            ndr("订单类别") = drs(i)("订单类别")

            ndr("交货日期") = drs(i)("交货日期")

            ndr("客服备注") = drs(i)("客服备注")

            ndr("XT_日期") =  dr("XT_日期")

            ndr("XT_姓名") =  dr("XT_姓名")

        Next

        systemready = True

        DataTables("订单").DeleteFor("下单设计 = true") '删除之前的行

    End If

    DataTables("设计部").Save()

    MessageBox.Show("好了,已经将新的订单转交给了设计部.","提示")

Else

    MessageBox.Show("好吧,等你准备好.","提示")

End If



里面  如果勾选的列有没有完善如上这些数据填写将不能执行下面的代码  


同时返回没有填写数据的行显示为整行红色  请教老师


------------------------------------------------------------------------

或者通过逻辑列下单设计勾选时就有判断   全部填写完毕才能够勾选  否则停止编辑


If e.Col.name= "下单设计"  True Then

    If e.Row("客服人员") <> User.Name Then '如果是其他用户,且业务员和登录用户名不同

        messagebox.show( "我是好员工 一般不愿意帮别人 是吗?" ,"提示")

        e.Cancel = True '则取消编辑

    Else If e.Row("客服人员") = User.Name Then

        If e.Row.isnull("接单日期")  OrElse e.Row.isnull("下单日期") OrElse  e.Row.isnull("客服备注") OrElse  e.Row.isnull("交货日期") OrElse  e.Row.isnull("发货地址") OrElse  e.Row.isnull("订单内容") OrElse e.Row.isnull("材质") OrElse e.Row.isnull("颜色") Then

            e.Cancel = True '则取消编辑

            messagebox.show( "接单,下单,交货日期,材质,颜色 订单内容,备注 发货地址不能为空" ,"提示" )

            forms("订单必填项").show

        Else

            forms("订单明细").show

        End If

    End If

End If

[此贴子已经被作者于2015/6/8 18:16:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/8 18:20:00 [显示全部帖子]

dt1  变量是@

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：22812 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2015/6/12 10:11:00 [显示全部帖子]

错误
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150612101058.png
图片点击可在新窗口打开查看
提示

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