Foxtable(狐表)用户栏目专家坐堂 → 2. 关于数据的实时显示


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

主题:2. 关于数据的实时显示

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


加好友 发短信
等级:婴狐 帖子:25 积分:283 威望:0 精华:0 注册:2022/2/8 10:53:00
2. 关于数据的实时显示  发帖心情 Post By:2022/5/20 8:32:00 [只看该作者]

2. 如何实现数据的实时显示
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:2.关于数据的显示问题.zip


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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/20 9:26:00 [只看该作者]

为了避免重复添加行,使用了Systemready = False,这时是不会计算的。


                Systemready = False
                Dim szs() As  String={"宽度第二分格","宽度第三分格","宽度第四分格","高度第一分格","高度第二分格","高度第三分格" }
                For Each s As String In szs
                    Dim r As Row = Tables("表B").addnew()
                    r("窗型代号") = e.NewValue
                    r("分格排序") = s
                    r("分格代号") = dr(s & "1")
                    r("分格尺寸") = dr(s & "2")
                    r("分格数量") = dr(s & "3")
                    r("框挺选择") = dr(s & "4")
                    r("开启扇参数") = dr(s & "5")
                    在这里添加计算边框、中挺的代码
r("边框尺寸") = xxxx
                Next
                Systemready = True
            End If
        End If
End Select


 回到顶部