Foxtable(狐表)用户栏目专家坐堂 → 窗口事件命令问题


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

主题:窗口事件命令问题

帅哥哟,离线,有人找我吗?
bestorange
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
窗口事件命令问题  发帖心情 Post By:2015/7/17 18:07:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150717180235.png
图片点击可在新窗口打开查看
上图为一格模式窗口,如果想选择好报名课程和选定课时数 课程学费的文本框中知道现实学费金额。

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/17 18:10:00 [显示全部帖子]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/17 18:22:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/17 19:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:51.png
图片点击可在新窗口打开查看
是不是直接可以编辑表的全局事件

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


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 11:10:00 [显示全部帖子]

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

 

这样吗?

[此贴子已经被作者于2015/7/18 11:12:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 11:49:00 [显示全部帖子]

前面根据课程自动代入课时费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

 


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 11:59:00 [显示全部帖子]

我试过了啊  还是不不行

 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 12:07:00 [显示全部帖子]

这一组命令的逻辑关系 是不是需要两组条件  “课程” 和 “剩余课时” 来得出“剩余学费”

然后“课程”=“课时费 ”   所以  “剩余学费”= 课时费 * 剩余课时??


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 12:19:00 [显示全部帖子]

狐狸老爹还是你来指点迷津一下吧,是什么问题?

 


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/7/18 12:40:00 [显示全部帖子]

用这组命令可以吗?

Select Case e.DataCol.Name
    Case
"A列"
        '代码一
   
Case "B列"
       
'代码二
   
Case "E列"
       
'代码三
End
Select
Select
Case e.DataCol.Name
    Case
"A列","B列","C列"
       
'代码四
   
Case "E列", "F列"
       
'代码五

End Select


 回到顶部
总数 13 1 2 下一页