Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据表更新


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

主题：数据表更新
帅哥哟，离线，有人找我吗？
爱相随
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		数据表更新  发帖心情 Post By：2014/8/20 12:01:00 [只看该作者]

老师，目录树列表项目怎么自动更新呢？我增加了新档案，但通过目录数列表引用的表却没法使用，请老师帮个忙吧

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/20 12:12:00 [只看该作者]

 是说数据表更新，但目录树没有更新？

 

 http://www.foxtable.com/help/topics/2031.htm

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


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/20 12:17:00 [只看该作者]

就是我在A表增加了档案，到B表却找不到，只有再到数据表的列属性点击后数据表那里后数据才更新

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/20 14:08:00 [只看该作者]

 看2楼帮助文档，用代码重新生成目录树。

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


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/20 16:58:00 [只看该作者]

请老师帮助看哈第二段代码为何不执行呢？？？
If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()        
        End If      
    Next
ElseIf User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJSQB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse  r.IsNull("实际申请金额") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SJSB") = User.Name
            r.Save()        
        End If      
    Next
Else
    MessageBox.show("你没有权限!")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/20 17:00:00 [只看该作者]

以下是引用爱相随在2014-8-20 16:58:00的发言：
请老师帮助看哈第二段代码为何不执行呢？？？
If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()        
        End If      
    Next
ElseIf User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJSQB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse  r.IsNull("实际申请金额") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SJSB") = User.Name
            r.Save()        
        End If      
    Next
Else
    MessageBox.show("你没有权限!")
End If

同一个条件，做两次判断？
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/20 17:05:00 [只看该作者]

在不同的表啊

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/20 17:20:00 [只看该作者]

If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()        
        End If      
    Next
 
    For Each r As Row In Tables("ZJSQB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse  r.IsNull("实际申请金额") Then
           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SJSB") = User.Name
            r.Save()        
        End If      
    Next
Else
    MessageBox.show("你没有权限!")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询