主题：窗口事件命令问题

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

上图为一格模式窗口，如果想选择好报名课程和选定课时数 课程学费的文本框中知道现实学费金额。

是要在窗口的事件命令编辑吗？还是在某一控件？表达式的代入格式是怎样的？？

窗口绑定的表中  如果是原有数据 我直接就增加表达式列 就是了

如果是先增加学员数据，也一样吗？还是要在窗口中编辑？

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

编辑窗口事件就可以了吗？还是要在绑定表编辑？

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

是不是直接可以编辑表的全局事件

如果课时数发生变化  学费金额= 课程内容的单价X课时数 ？

 既然是绑定到列了，那么这种计算和窗口无关，直接编写表事件即可。

这种查找符合条件的行，提取改行某列数据，进行计算或者赋值，我都帮你写过多次了。

花两个周末学一下置顶视频教程的三章：《编程基础》《基本类型》《事件编程》，，会让你的编程水平大大提高，效率提升百倍。

否则始终在同样的问题中转圈圈。

If e.DataCol.Name = "课程" Then
    If e.NewValue Is Nothing Then
        e.DataRow("课时费") = Nothing
    Else
        Dim dr  As  DataRow
        dr =  DataTables("课类分类表").Find("科目 = '" & ("课程") & "'")
        If dr IsNot Nothing Then  '
            e.DataRow("课时费") = dr("课时费")
        End  If
        dr("学费余额") = dr("课程") * dr("剩余课时")
    End  If
      
End If

这样吗？

呵呵， 你的业务逻辑只有你清楚的哦，我们只能从代码角度分析。

下面的代码有一些问题：

 dr =  DataTables("课类分类表").Find("科目 = '" & ("课程") & "'")

应该：

 dr =  DataTables("课类分类表").Find("科目 = '" & e.DataRow("课程") & "'")

前面根据课程自动代入课时费OK了，后满根据课时费 X 课时数  代入学费余额这个 是我命令写错了吧？

If e.DataCol.Name = "课程" Then
    If e.NewValue Is Nothing Then
        e.DataRow("课时费") = Nothing
    Else
        Dim dr  As  DataRow
         dr =  DataTables("课类分类表").Find("科目 = '" & e.DataRow("课程") & "'")
        If dr IsNot Nothing Then
            e.DataRow("课时费") = dr("课时费")
        End  If
     
  If e.DataCol.Name = "剩余课时" Then
            e.DataRow("学费余额") = ("课时费") * ("剩余课时")
        End If
    End  If
   
End If