以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎样写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77796) |
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 16:03:00 -- 怎样写代码 此主题相关图片如下:qq截图20151125154645.png 怎样将比分作为条件,主胜,平局,客胜作为结果。代码应怎样写。
|
||
-- 作者:大红袍 -- 发布时间:2015/11/25 16:09:00 -- If e.DataCol.Name = "比分" Then Dim ary() As String = e.DataRow("比分").split(":") If ary.length = 1 Then e.DataRow("第三列") = Nothing Else If val(ary(0)) > val(ary(1)) Then e.DataRow("第三列") = "主胜" ElseIf val(ary(0)) < val(ary(1)) Then e.DataRow("第三列") = "客胜" ElseIf ary(0) = ary(1) Then e.DataRow("第三列") = "平局" End If End If End If
|
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 16:21:00 -- 我说的是把第二列的比分“1:1”作为条件,那么第三列就显示为“平局”。 比分“1:0”,第三列显示为“主胜”。 比分“1:2”,第三列显示为客胜。 刚才写的应用不到啊。
|
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 16:22:00 -- 此主题相关图片如下:qq截图20151125160844.png |
||
-- 作者:大红袍 -- 发布时间:2015/11/25 16:26:00 -- 写到Datacolchanged事件,重置列
http://www.foxtable.com/help/topics/1469.htm
|
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 17:19:00 --
|
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 17:21:00 --
|
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 17:28:00 --
此主题相关图片如下:qq截图20151125164921.png 代码要怎样写呀 |
||
-- 作者:大红袍 -- 发布时间:2015/11/25 17:50:00 -- If e.DataCol.Name = "比分" Then Dim ary() As String = e.DataRow("比分").split(":") If ary.length = 1 Then e.DataRow("第三列") = Nothing Else Dim d1 As Double = val(ary(0)) Dim d2 As Double = val(ary(1)) d1 = iif(e.DataRow("第三列")="半球",d1+0.5,d1) If d1 > d2 Then e.DataRow("第四列") = "主胜" ElseIf d1 < d2 Then e.DataRow("第四列") = "客胜" ElseIf d1 = d2 Then e.DataRow("第四列") = "平局" End If End If End If |
||
-- 作者:欧洲之巅 -- 发布时间:2015/11/25 17:58:00 -- 还有我想问同一列文字用数字来表示啊。例如“一球”转化成“1”行吗。就是说在单元格输入“一球”立刻转换成“1”。请指教。 |