Foxtable(狐表) → 用户栏目 → 专家坐堂 → 找出生产piao号和制造产品号完全相同的行


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

主题：找出生产piao号和制造产品号完全相同的行
帅哥哟，离线，有人找我吗？
edisontsui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		找出生产piao号和制造产品号完全相同的行  发帖心情 Post By：2019/5/30 14:23:00 [显示全部帖子]

If e.DataCol.Name = "长度" Then 
    If dr("制造产品号").startsWith("C")
        If e.DataRow.IsNull("生产piao号") = False AndAlso e.DataRow.IsNull("制造产品号") = False
            Dim dr3 As DataRow = e.DataRow
            If e.DataTable.Find("生产piao号 = '" & dr3("生产piao号") & "' And 制造产品号 = '" & dr3("制造产品号") & "'") IsNot Nothing Then '如果找到生产piao号和制造产品号完全相同的行，则不执行判断杆数的代码      
            Else

                '判断杆数
                If dr("制造产品号").startsWith("CFU")
                    If dr("制造产品号").contains("16G")  
                       dr("每套杆数") = 1
                    ElseIf dr("制造产品号").contains("32G") 
                       dr("每套杆数") = 2
                    ElseIf dr("制造产品号").contains("50G") 
                       dr("每套杆数") = 3
                    End If
                End If
                '结束判断杆数

            End If
        End If
    Else
        dr("每套杆数") = Nothing
        dr("每杆铜片") = Nothing
        dr("铜片总数") = Nothing
    End If
End If

上面的代码，如果不要第4层的 if... else... end if 嵌套，那么执行起来是没有问题的。但是加上第4层嵌套，执行起来就没有作用了。请假是哪里的问题？谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/30 15:22:00 [显示全部帖子]

弹出: 制造产品号那个单元的值 CFD2640GG36LFOS19B17M65 和 False

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/30 16:10:00 [显示全部帖子]

我把制造产品号换成 CFU2532G30LFS15B15M41，则弹出：CFU2532G30LFS15B15M41 和 True，但还是没有“每套杆数”出来。

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/30 16:25:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时代码.zip


上面档案里面是完整的代码，我在网页上发给你的是简化了的。不知道完整的代码是否有问题？
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/30 17:08:00 [显示全部帖子]

没有任何东西弹出来。“每套杆数”也不会出现任何值。

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/31 9:58:00 [显示全部帖子]

我在新增加数据行时，会出现警告框”1”，然后将复制的数据贴入数据行时，也是会出现警告框”1”。

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/31 12:01:00 [显示全部帖子]

增加空白行时，出现如下警告：1，开料，1，输入记录，1，是否特殊，1，跟单确认，1，已完成，1，输入记录
将复制的数据粘贴上去时，出现：1，开料，1，输入记录，1，是否特殊，1，跟单确认，1，已完成，1，输入记录，1，日期，1，生产piao号，1，输入记录，1，订单号，1，单型，1，铜or铝，1，制造产品号，1，原材料，1，毫米厚，1.毫米厚，1，铜or铝，1，型号，1，开料参数，1，铣端头or打毛刺，1，标识，1，套数，1，毫米长度，1，长度，2，3，4，5，1，开料分类，1，铣端头，1，数量
附页是 datacolchanged 事件里面的全部代码，是否跟其他段的代码有关？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时代码.rar
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/31 13:10:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip


目的：输入新一行数据行时，如果前面没有“生产piao号”和制造产品号”都相同的行，则要进一步判断“杆数”和“每杆铜片”；如果前面有“生产piao号”和制造产品号”都相同的行，则不执行判断。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/31 13:12:00 [显示全部帖子]

我的foxtable版本是2017年的，如果你有了新的代码给我，请贴在这里。我无法测试你发给我的高版本项目文件。谢谢。

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/5/31 13:21:00 [显示全部帖子]

        If e.DataRow.IsNull("生产piao号") = False AndAlso e.DataRow.IsNull("制造产品号") = False
            Dim dr3 As DataRow = e.DataRow
            If e.DataTable.Find("生产piao号 = '" & dr3("生产piao号") & "' And 制造产品号 = '" & dr3("制造产品号") & "'") IsNot Nothing Then   
            Else

我另有一个数据表，只是将上面那段代码改成如下：
       If dr("标识").contains("D") Or dr("标识").contains("大") 

执行起来是没有问题的。所以我怀疑就是这句的问题：
 If e.DataTable.Find("生产piao号 = '" & dr3("生产piao号") & "' And 制造产品号 = '" & dr3("制造产品号") & "'") IsNot Nothing Then   
            Else
 回到顶部
总数 12 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.06445 秒, 8 次数据查询