- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 2. 关于数据的实时显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177395)
-- 发布时间：2022/5/20 8:32:00
-- 2. 关于数据的实时显示
2. 如何实现数据的实时显示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2.关于数据的显示问题.zip |
-- 发布时间：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