专家坐堂-[求助]将datacolchanged事件代码放到窗口1的按钮中如何改写Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将datacolchanged事件代码放到窗口1的按钮中如何改写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132442)

--  作者：lgbc
--  发布时间：2019/3/22 6:38:00
--  [求助]将datacolchanged事件代码放到窗口1的按钮中如何改写

请教老师，例如下列代码
Select Case e.DataCol.name
    Case "所属供电分公司","所属供电所","字母代码"
        Dim filter = "所属供电所=\'" & e.DataRow("所属供电所") & "\' and 所属单位=\'" & e.DataRow("所属供电分公司") & "\'"
        e.DataRow("电脑数量") = DataTables("表A").Compute("count(姓名)",filter & " and 是否有电脑=\'是\'")
End Select
这是用在表A的datacolchanged事件中对表A的数据进行统计，如果将表A放到窗口1中用单击按钮来进行统计，请教老师如何改写代码？

--  作者：y2287958
--  发布时间：2019/3/22 8:15:00
--

For Each dr As DataRow In DataTables("某表").DataRows
Dim filter = "所属供电所=\'" & dr("所属供电所") & "\' and 所属单位=\'" & dr("所属供电分公司") & "\'"
dr("电脑数量") = DataTables("表A").Compute("count(姓名)",filter & " and 是否有电脑=\'是\'")
Next