为了避免重复添加行，使用了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
加好友 
发短信
Post By：2022/5/20 9:26:00 [显示全部帖子]
