以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]借花献佛,送给需要的朋友们  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19215)

--  作者:uncleguang
--  发布时间:2012/5/2 18:35:00
--  [分享]借花献佛,送给需要的朋友们

在狐狸爸爸帮写的代码下最终达成,在此借花献佛送给需要的新手们。可以用在商品价格浮动中,使人一目了然。

其实代码一看就懂,但自己遇到就不知道该怎么写,唉,惭愧啊~~

 

If e.Col.name = "第二列" AndAlso e.text >"" Then
    Dim d As Double = e.Row("第二列")
    If d > e.Row("第一列")
        e.Text = e.Text & "↑"
        e.Style = "样式1"
    ElseIf d < e.Row("第一列")
        e.Text = e.Text & "↓"
        e.Style = "样式2"
    End If
End If

 

示例图片

图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:商品价格浮动单元格.table


--  作者:程兴刚
--  发布时间:2012/5/2 19:00:00
--  
不管我用不用得着,分享就要顶!
--  作者:uncleguang
--  发布时间:2012/5/2 19:10:00
--  
谢谢程总在那个帖子的链接
--  作者:程兴刚
--  发布时间:2012/5/2 19:25:00
--  
不客气!
--  作者:yangming
--  发布时间:2012/5/3 8:44:00
--  
谢谢楼主的分享,顶啊!