Foxtable(狐表)用户栏目专家坐堂 → 取消错误提示


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

主题:取消错误提示

帅哥哟,离线,有人找我吗?
outcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
取消错误提示  发帖心情 Post By:2019/10/20 15:19:00 [只看该作者]


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


我这个当一条记录都没有的时候,点“显示全部”打开这个新增赊账客户窗体,报错,报错之后关闭报错窗体,然后弹出需要的窗体,这个错误如何定义,自己怎么写不出来

AfterLoad 代码如下

If Forms("赊账客户信息").opened Then
    
    Dim trv As WinForm.TreeView = Forms("赊账客户信息").controls("treeview1")
    
    If trv.SelectedNode IsNot Nothing Then
        Dim nd = trv.SelectedNode
        
        Select nd.Level  
            Case 0
                Dim tr As Row = Tables("赊账客户表").Current
                
                Dim dr As DataRow = nd.DataRow '获取生成此节点的DataRow
                tr("客户类型") = dr("客户类型")
                tr("类型编号") = dr("类型编号")
                e.form.controls("客户类型").text = dr("客户类型")
        End Select
    End If
End If




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/20 23:06:00 [只看该作者]

Case 0
                Dim tr As Row = Tables("赊账客户表").Current
if tr is nothing then return
im dr As DataRow = nd.DataRow '获取生成此节点的DataRow

 回到顶部