以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表事件代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147320)

--  作者:yei
--  发布时间:2020/3/14 0:09:00
--  表事件代码

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200313235601.png
图片点击可在新窗口打开查看请教大神事件代码该如何写?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点蓝
--  发布时间:2020/3/14 8:59:00
--  
把列类型改为整数列

Select  Case e.DataCol.Name
    Case "第一列"
        Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
        If idx > 0 Then
            e.DataRow("第二列") = e.DataRow("第一列") - Tables(e.DataTable.Name).Rows(idx - 1)("第一列")
        End If
    End  Select
[此贴子已经被作者于2020/3/14 8:58:59编辑过]

--  作者:yei
--  发布时间:2020/3/15 0:16:00
--  
大神,1楼第二列的结果数字小于等于20的,显示红色字体!代码如何写?
--  作者:sloyy
--  发布时间:2020/3/15 2:45:00
--  

DrawCell 事件 

看帮助吧


--  作者:有点蓝
--  发布时间:2020/3/15 20:25:00
--  
参考:http://www.foxtable.com/webhelp/topics/0656.htm
--  作者:yei
--  发布时间:2020/3/15 21:33:00
--  
谢谢大神解答