以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【遍历判断】当前【状态变更】表中的编号，要在【款物明细】【入库明细】中遍历序号后再在使用记录中查找如果不等于归还的，就进行提醒并赋值。怎么进行判断呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109945)
--  作者：李孝春
--  发布时间：2017/11/23 14:01:00
--  【遍历判断】当前【状态变更】表中的编号，要在【款物明细】【入库明细】中遍历序号后再在使用记录中查找如果不等于归还的，就进行提醒并赋值。怎么进行判断呢？
【遍历判断】当前【状态变更】表中的编号，要在【款物明细】【入库明细】中遍历序号后再在使用记录中查找如果不等于（<>）归还的，就进行提醒,反之不提醒并赋值。怎么进行判断呢？

下述代码可以实现在【入库明细】中遍历序号后再在使用记录中查找如果不等于归还等数据并进行提醒，
怎么实现先查找【款物明细】中的记录 满足条件后再进行【入库明细】查找数据
只有当两个表中的数据在【使用记录】表中都从是存在借出 且对应归还的时候  才运行 办结登记

想实现当登记状态中只有借出而没有归还的 就不能更新办结状态“已办结”

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

Dim d  As Row=Tables("状态变更").Current
For Each dr As DataRow In DataTables("款物明细").Select("案件编号=\'" & d("编号") & "\'")
    Dim dr2 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr("款物序号") & "\'","录入时间 DESC")
    If dr2 IsNot Nothing AndAlso dr2("登记状态") <> "归还"
        msgbox(dr2("编号") & "【" & dr2("序号") & "】款物未归还")
        d("办理状态")="办理中"
        d("办结人")=Nothing
        d("办结状态")=""
        d("办结时间")= Nothing
        e.Cancel = True
        Return
    Else
        d("办理状态")="已办结"
        d("办结状态")="已办结"
        d("办结人")=d("办理人")
        d("办结时间")=Date.now
    End If
Next
For Each dr1 As DataRow In DataTables("入库明细").Select("卷宗编号=\'" & d("编号") & "\'")
    Dim dr21 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr1("分册编号") & "\'","录入时间 DESC")
    If dr21 IsNot Nothing AndAlso dr21("登记状态") <> "归还"
        msgbox(dr21("编号") & "【" & dr21("序号") & "】卷宗未归还")
        d("办理状态")="办理中"
        d("办结人")=Nothing
        d("办结状态")=""
        d("办结时间")= Nothing
        e.Cancel = True
        Return
    Else
        d("办理状态")="已办结"
        d("办结状态")="已办结"
        d("办结人")=d("办理人")
        d("办结时间")=Date.now
    End If
Next
[此贴子已经被作者于2017/11/23 14:30:04编辑过]
--  作者：有点甜
--  发布时间：2017/11/23 15:14:00
--  

Dim d  As Row=Tables("状态变更").Current
For Each dr As DataRow In DataTables("款物明细").Select("案件编号=\'" & d("编号") & "\'")
    Dim dr2 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr("款物序号") & "\'","录入时间 DESC")
    If dr2 IsNot Nothing AndAlso dr2("登记状态") <> "归还"
        msgbox(dr2("编号") & "【" & dr2("序号") & "】款物未归还")
        Return
    End If
Next
For Each dr1 As DataRow In DataTables("入库明细").Select("卷宗编号=\'" & d("编号") & "\'")
    Dim dr21 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr1("分册编号") & "\'","录入时间 DESC")
    If dr21 IsNot Nothing AndAlso dr21("登记状态") <> "归还"
        msgbox(dr21("编号") & "【" & dr21("序号") & "】卷宗未归还")
        Return
    End If
Next

d("办理状态")="已办结"
d("办结状态")="已办结"
d("办结人")=d("办理人")
d("办结时间")=Date.now
--  作者：李孝春
--  发布时间：2017/11/24 12:46:00
--  回复：（有点甜）Dim d  As Row=Tables("状态变更...
有点甜老师 现在可以逐步提醒了  但是觉得还是不怎么方便 因为遍历是独立的 执行一次就执行了 当款物和卷宗都有未归还情况时 只提醒款物未归还  有没有办法时间两个提示都进行 也就是款物与卷宗都提醒并且体现在一个窗体上
--  作者：有点甜
--  发布时间：2017/11/24 14:54:00
--  
Dim d  As Row=Tables("状态变更").Current
Dim flag As Boolean = True
For Each dr As DataRow In DataTables("款物明细").Select("案件编号=\'" & d("编号") & "\'")
    Dim dr2 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr("款物序号") & "\'","录入时间 DESC")
    If dr2 IsNot Nothing AndAlso dr2("登记状态") <> "归还"
        msgbox(dr2("编号") & "【" & dr2("序号") & "】款物未归还")
        flag = False
    End If
Next
For Each dr1 As DataRow In DataTables("入库明细").Select("卷宗编号=\'" & d("编号") & "\'")
    Dim dr21 As DataRow = DataTables("使用记录").Find("编号=\'" & d("编号") & "\' and 序号=\'" & dr1("分册编号") & "\'","录入时间 DESC")
    If dr21 IsNot Nothing AndAlso dr21("登记状态") <> "归还"
        msgbox(dr21("编号") & "【" & dr21("序号") & "】卷宗未归还")
        flag = false
    End If
Next
if flag then
    d("办理状态")="已办结"
    d("办结状态")="已办结"
    d("办结人")=d("办理人")
    d("办结时间")=Date.now
end if