以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口里父表下有三个子表,判断先后录入顺序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177850)

--  作者:xuzihang
--  发布时间:2022/6/7 12:00:00
--  窗口里父表下有三个子表,判断先后录入顺序
窗口里父表下有三个子表,判断先后录入顺序,先录入成交  服务 后录入售后
问题:如果要录入服务,判断销售是否录入,录入了才能否则不让,老师,这个不会判断了,请教?
 If Tables("服务总").Current.Locked = False Then
            If  DataTables("服务成交").DataCols("编号").Rows.Count <0 Then  
                \' Tables("服务总.服务成交").Rows.Count <0 Then
                \'Tables("服务总.服务成交").current.IsNull("服务项目_数量") = False Then
                MessageBox.show("请先增销售成交!")
            Else
                If Tables("服务总.服务明细").Rows.Count >0 Then
                    If  Tables("服务总.服务明细").current.isnull("项目") Then 
                        msgbox("填写项目")
                    ElseIf  Tables("服务总.服务明细").current.isnull("单位") Then
                        msgbox("填写单位")
                    ElseIf  Tables("服务总.服务明细").current.isnull("数量") Then
                        msgbox("填写数量")
                    ElseIf  Tables("服务总.服务明细").current.isnull("服务人员") Then
                        msgbox("填写服务人员")
                        Return
                    Else
                        Tables("服务总.服务明细").Addnew()
                    End If
                Else
                    Tables("服务总.服务明细").Addnew()
                End If
            End If
        Else
            MessageBox.show("完成后的单子不能增加了,先新建订单,在增销售成交后增服务!")
        End If


--  作者:有点蓝
--  发布时间:2022/6/7 13:33:00
--  
If  DataTables("服务成交").DataRows.Count =0 Then  
--  作者:xuzihang
--  发布时间:2022/6/7 13:49:00
--  
谢谢,蓝老师