以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  在窗口1中如何引用表计算程序  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114321)
--  作者：lgbc
--  发布时间：2018/2/3 9:22:00
--  在窗口1中如何引用表计算程序

Select e.DataCol.Name
    Case "数量","日期"
        Dim dr1 As DataRow = e.DataRow \'本日期的行
        Dim dr2 As DataRow = e.DataTable.Find("日期 < #" & e.DataRow("日期") & "#","日期 Desc") \'前一日期的行
        Dim dr3 As DataRow = e.DataTable.Find("日期 > #" & e.DataRow("日期") & "#","日期") \'下一日期的行
        If dr2 Is Nothing Then
            dr1("环比") = 0
        ElseIf dr2("数量") > 0
            dr1("环比") = (dr1("数量") - dr2("数量")) / dr2("数量")
        Else
            dr1("环比") = Nothing
        End If
        If dr3 IsNot Nothing
            If dr1("数量") > 0 Then
                dr3("环比") = (dr3("数量") - dr1("数量")) / dr1("数量")
            Else
                dr3("环比") = Nothing
            End If
        End If
End Select


这段程序是帮助里的“编码计算环比”程序，现在新建个窗口1，放置一个按钮和一个表控件，将这段程序放到按钮事件里，如何才能正常运行计算？
--  作者：有点蓝
--  发布时间：2018/2/3 9:37:00
--  
保留表事件，直接写代码重置列即可

Tables("窗口1_Table1").datatable.DataCols("数量").RaiseDataColChanged()