找出生产piao号和制造产品号完全相同的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2163人关注过本帖树形打印复制链接主题：找出生产piao号和制造产品号完全相同的行

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 14:54:00 [显示全部帖子]

加入msgbox，弹出值看一下

msgbox(dr("制造产品号"))

msgbox(dr("制造产品号").startsWith("CFU"))

msgbox(dr("制造产品号").contains("16G"))

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 15:46:00 [显示全部帖子]

开始是CFD，不是CFU，自然不会执行if判断的代码啊。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 16:22: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

                msgbox(dr("制造产品号"))

                msgbox(dr("制造产品号").startsWith("CFU"))

                msgbox(dr("制造产品号").contains("32G"))


                '判断杆数
                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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 16:31:00 [显示全部帖子]

弹出什么

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 19:23:00 [显示全部帖子]

以下是引用edisontsui在2019/5/30 17:08:00的发言：
没有任何东西弹出来。“每套杆数”也不会出现任何值。

加入msgbox，看哪个if判断没有满足

msgbox(1)

If e.DataCol.Name = "长度" Then

msgbox(2)
If dr("制造产品号").startsWith("C")

msgbox(3)
If e.DataRow.IsNull("生产piao号") = False AndAlso e.DataRow.IsNull("制造产品号") = False

msgbox(4)
Dim dr3 As DataRow = e.DataRow
If e.DataTable.Find("生产piao号 = '" & dr3("生产piao号") & "' And 制造产品号 = '" & dr3("制造产品号") & "'") IsNot Nothing Then '如果找到生产piao号和制造产品号完全相同的行,则不执行判断杆数的代码

msgbox(5)
Else

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/31 10:31:00 [显示全部帖子]

以下是引用edisontsui在2019/5/31 9:58:00的发言：
我在新增加数据行时，会出现警告框”1”，然后将复制的数据贴入数据行时，也是会出现警告框”1”。

msgbox2、3、4等都没弹出？那msgbox(e.DataCol.Name )看弹出什么

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/31 12:09:00 [显示全部帖子]

上传具体实例。说明你要做什么。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/31 16:16:00 [显示全部帖子]

If e.DataCol.Name = "制造产品号" OrElse e.DataCol.name = "生产piao号" 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("制造产品号") & "' and _Identify <> " & dr3("_Identify")) IsNot Nothing Then
            Else
              '判断杆数

下一主题 >> << 上一主题

主题：找出生产piao号和制造产品号完全相同的行