Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样写代码


  共有7676人关注过本帖树形打印复制链接

主题：怎样写代码
帅哥哟，离线，有人找我吗？
欧洲之巅
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：378 威望：0 精华：0 注册：2015/11/22 17:40:00 		  发帖心情 Post By：2015/11/25 17:59:00 [只看该作者]

要是行，那代码怎写呀。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 18:34: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,iif(e.DataRow("第三列")="一球",d1+1,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

 回到顶部
帅哥哟，离线，有人找我吗？
欧洲之巅
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：378 威望：0 精华：0 注册：2015/11/22 17:40:00 		  发帖心情 Post By：2015/11/25 19:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151125193229.png
图片点击可在新窗口打开查看


问题1：将第二列的“一”转换成第三列“1".


问题2：将第六列的设定符合条件”>=0.800，<,0.850“转换成第七列的”中水“
           第六列的设定符合条件”>=1.000，<,1.100“转换成第七列的”高水“

上面两个代码应怎样写？请指教。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 20:10:00 [只看该作者]

1、

 

If e.DataCol.Name = "第二列" Then
    Dim nums() As String = {"一", "二", "三"}
    dim idx as integer = array.indexof(nums, e.newvalue)
    if idx >= 0 then
        e.datarow("第三列") = idx+1
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 20:12:00 [只看该作者]

2、

 

If e.DataCol.Name = "第六列" Then
    If e.NewValue >= 0.8 AndAlso e.NewValue < 0.85 Then
       
    ElseIf e.Newvalue >= 1 AndAlso e.NewValue < 1.1 Then
       
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
欧洲之巅
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：378 威望：0 精华：0 注册：2015/11/22 17:40:00 		  发帖心情 Post By：2015/11/25 20:21:00 [只看该作者]

第二列      第三列
受半球      -0.5
受平手半球 -0.25
半球         0.5
半一         0.75
一球         1

按照以上的代码怎么是错误的，请给新的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 20:26:00 [只看该作者]

请先去学习foxtable编程，再自己做东西

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 
 回到顶部
帅哥哟，离线，有人找我吗？
欧洲之巅
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：378 威望：0 精华：0 注册：2015/11/22 17:40:00 		  发帖心情 Post By：2015/11/25 20:31:00 [只看该作者]

比分  终盘   盘口
1:0 半球 赢盘
1:2 半球 输盘
2:2 半球 输盘
0:0 输盘
2:0 赢盘

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("盘口") = "输盘"
        End If
    End If
End If




怎么我没输入条件都有结果的。
 回到顶部
帅哥哟，离线，有人找我吗？
欧洲之巅
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：378 威望：0 精华：0 注册：2015/11/22 17:40:00 		  发帖心情 Post By：2015/11/25 20:34:00 [只看该作者]

2、

 

If e.DataCol.Name = "第六列" Then
    If e.NewValue >= 0.8 AndAlso e.NewValue < 0.85 Then
        
    ElseIf e.Newvalue >= 1 AndAlso e.NewValue < 1.1 Then
        
    End If
End If


怎么没有”中水“和”高水“ ，是不是漏掉什么了。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 20:34:00 [只看该作者]

 e.DataRow("第七列") = "xxx" 

 回到顶部
总数 91 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询