怎样写代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8258人关注过本帖树形打印复制链接主题：怎样写代码

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/25 16:26:00 [显示全部帖子]

写到Datacolchanged事件，重置列

http://www.foxtable.com/help/topics/1469.htm

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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