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

此主题相关图片如下：123.png

If e.DataCol.Name = "准考证号" Then '如果内容发生变动的是品名列
    If e.DataRow.Isnull("报考学科") OrElse e.DataRow.Isnull("面试讲课") OrElse e.DataRow.Isnull("面试技能") Then
        e.DataRow("面试成绩") = Nothing '那么清空此行单价列的内容
    Else
        Select Case e.DataRow("报考学科")
            Case "初中信息技术","初中体育","初中美术","初中音乐","小学信息技术","小学体育","小学美术","小学音乐"
                e.DataRow("面试成绩") =( e.DataRow("面试讲课") + e.DataRow("面试技能"))/2
            Case Else
                e.DataRow("面试成绩") =e.DataRow("面试讲课")
        End Select
    End If
End If

——————————————————————————————————————————————————

这段代码，为什么当技能测试为空时，e.DataRow("面试成绩") =e.DataRow("面试讲课")不计算。上图中，按条件，应该计算的【面试讲课】= 【面试成绩】的呀

[此贴子已经被作者于2020/6/18 16:09:24编辑过]

去掉最外一层判断

If e.DataRow.Isnull("报考学科") OrElse e.DataRow.Isnull("面试讲课") OrElse e.DataRow.Isnull("面试技能") Then
        e.DataRow("面试成绩") = Nothing '那么清空此行单价列的内容
    Else
        Select Case e.DataRow("报考学科")
            Case "初中信息技术","初中体育","初中美术","初中音乐","小学信息技术","小学体育","小学美术","小学音乐"
                e.DataRow("面试成绩") =( e.DataRow("面试讲课") + e.DataRow("面试技能"))/2
            Case Else
                e.DataRow("面试成绩") =e.DataRow("面试讲课")
        End Select
    End If

能讲讲原因吗？我不太明白，代码是抄的帮助中的。

[此贴子已经被作者于2020/6/18 16:27:31编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:考调管理系统.foxdb

在成绩册里这个表。

[此贴子已经被作者于2020/6/18 16:32:12编辑过]

If e.DataCol.Name = "报考学科" OrElse e.DataCol.Name = "面试讲课" OrElse e.DataCol.Name = "面试技能" Then

If e.DataRow.Isnull("报考学科") OrElse e.DataRow.Isnull("面试讲课") Then

e.DataRow("面试成绩") = Nothing '那么清空此行单价列的内容

Else

Select Case e.DataRow("报考学科")

Case "初中信息技术","初中体育","初中美术","初中音乐","小学信息技术","小学体育","小学美术","小学音乐"

e.DataRow("面试成绩") =( e.DataRow("面试讲课") + e.DataRow("面试技能"))/2

Case Else

e.DataRow("面试成绩") =e.DataRow("面试讲课")

End Select

End If

主题：为什么不计算