Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助－不重复列表


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

主题：求助－不重复列表
帅哥哟，离线，有人找我吗？
lovetoday
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：867 威望：0 精华：0 注册：2018/7/3 0:45:00 		求助－不重复列表  发帖心情 Post By：2024/3/18 10:17:00 [显示全部帖子]

老师，我用以下代码，实现从表“白塔砼销明细”中，找到符合的行到“白塔泵送明细”中，其中有重复的日期和车号，但是相对应的作业工地名称有不同，
        Select Case r
            Case r("泵送明细_日期"), r("泵送明细_泵车信息_车号")
                Dim drs1 = DataTables("白塔泵送明细").SQLSelect(" 泵送明细_日期 = '" & r("泵送明细_日期") & "' and 泵送明细_泵车信息_车号 = '" & r("泵送明细_泵车信息_车号") & "'")
                Dim drs = DataTables("白塔砼销明细").SQLSelect(" 砼销明细_销售审核_日期0 = '" & r("泵送明细_日期") & "' and 砼销明细_泵车作业_泵号='" & r("泵送明细_泵车信息_车号") & "'")
                For Each cdr As DataRow In drs
                    Dim flag As Boolean = True
                    For Each dr As DataRow In drs1
                        If cdr("砼销明细_泵送名称0") = dr("泵送明细_作业工地名称") Then
                            flag = False
                            Exit For
                        End If
                    Next
                    If flag Then
                        r("泵送明细_作业工地名称") = cdr("砼销明细_泵送名称0")
                        r("泵送明细_销售客户名称") = cdr("砼销明细_销售名称0")
                    End If
                Next
        End Select
运行后，系统提示如下

图片点击可在新窗口打开查看此主题相关图片如下：6.png
图片点击可在新窗口打开查看
请老师帮忙看看，问题出在哪
 回到顶部
帅哥哟，离线，有人找我吗？
lovetoday
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：867 威望：0 精华：0 注册：2018/7/3 0:45:00 		  发帖心情 Post By：2024/3/18 16:08:00 [显示全部帖子]

'作业工地名称及销售工地名称
For Each r As Row In Tables("工作总表_Table4").Rows
    If r("泵送明细_日期") = Nothing Then
        r("泵送明细_作业工地名称") = Nothing
        r("泵送明细_销售客户名称") = Nothing
    Else
 '       Select Case r
 '           Case r("泵送明细_日期"), r("泵送明细_泵车信息_车号")
                Dim drs1 = DataTables("白塔泵送明细").SQLSelect(" 泵送明细_日期 = '" & r("泵送明细_日期") & "' and 泵送明细_泵车信息_车号 = '" & r("泵送明细_泵车信息_车号") & "'")
                Dim drs = DataTables("白塔砼销明细").SQLSelect(" 砼销明细_销售审核_日期0 = '" & r("泵送明细_日期") & "' and 砼销明细_泵车作业_泵号='" & r("泵送明细_泵车信息_车号") & "'")
                For Each cdr As DataRow In drs
                    Dim flag As Boolean = True
                    For Each dr As DataRow In drs1
                        If cdr("砼销明细_泵送名称0") = dr("泵送明细_作业工地名称") Then
                            flag = False
                            Exit For
                        End If
                    Next
                    If flag Then
                        r("泵送明细_作业工地名称") = cdr("砼销明细_泵送名称0")
                        r("泵送明细_销售客户名称") = cdr("砼销明细_销售名称0")
                    End If
                Next
 '       End Select
    End If 
Next 
 回到顶部
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 次数据查询