Foxtable(狐表) → 用户栏目 → 专家坐堂 → 从“级码”中提取“单位编码”


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

主题：从“级码”中提取“单位编码”
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		这样写行吗  发帖心情 Post By：2022/3/16 17:03:00 [只看该作者]

With Tables("项目明细表").Current
    If CurrentTable.Current("已报账") = True Then
        MessageBox.Show("项目已报账,你不能删除,别乱来!", "提示")
        e.Cancel = True  '取消变动
    Else
        CurrentTable.Current.Delete()
        MessageBox.show("删除成功!")
    End If
End With
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107863 积分：548678 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/16 17:06:00 [只看该作者]

看10楼

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		10楼还是不行，这样改就好了，这有区别码？  发帖心情 Post By：2022/3/16 17:10:00 [只看该作者]

If Tables("项目明细表").Current IsNot Nothing
    If CurrentTable.Current("已报账") = True Then
        MessageBox.Show("项目已报账,你不能删除,别乱来!", "提示")
    Else
         CurrentTable.Current.Delete
    MessageBox.show("删除成功!")
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107863 积分：548678 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/16 17:11:00 [只看该作者]

说明当前表并不是"项目明细表"

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2022/3/16 17:22:00 [只看该作者]

我知道原因了，关联子表

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		老师，帮我看看这个代码  发帖心情 Post By：2022/3/16 17:35:00 [只看该作者]

先判断是否有明细单，有则先删除明细单后才能删总表订单

If Tables("项目总表").Rows.Count >0 Then

MessageBox.show("请先删除明细单!")

    Dim pr As DataRow = e.DataRow.GetParentRow("项目总表") '获得此明细对应的订单

    If pr IsNot  Nothing Then '如果有对应的订单

        If pr.GetChildRows("项目明细表").count  = 1 Then '且这个订单的明细只有一个了

            e.DataRow("项目编号") = Nothing   ''某关联列

            pr.Delete '删除这个订单

        End If

    ElseIf MessageBox.Show("确认是否真的要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=6 Then

        Tables("项目总表").Current.Delete

    Else

        Return

    End If

End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107863 积分：548678 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/16 17:38:00 [只看该作者]

代码放在什么地方的？

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2022/3/16 17:39:00 [只看该作者]

窗口，删除按钮

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107863 积分：548678 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/17 8:27:00 [只看该作者]

dim r as row = Tables("项目总表").Current
if r isnot nothing then
  If MessageBox.Show("确认是否真的要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=6 Then
dataTables("项目明细表").deletefor("项目编号='" & r("项目编号") & "'")
r.delete
end if
end if
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2022/3/17 12:09:00 [只看该作者]

Dim r As Row = Tables("项目总表").Current
If r IsNot Nothing Then
    If MessageBox.Show("确认是否真的要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=6 Then
        DataTables("项目明细表").deletefor("项目编号='" & r("项目编号") & "'")
        r.delete
    End If
End If
蓝老师，这个代码将总表和明细表一同删除。我想在总表“删除”按钮里，先判断该订单在明细表里是否有明细？若没有直接可以删除，若有则不能删除，要先去删除明细后才能删除，请问怎么修改
 回到顶部
总数 64 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询