- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 共用窗口命令问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72857)
-- 发布时间：2015/8/7 16:48:00
-- 共用窗口命令问题
此主题相关图片如下：qq图片20150807163237.png
把之前的各种课程的签到和课时统计表按照大师说的
合并成为一个表，几个窗口也共用同一模板，那么我签到窗口的命令应该怎样修改，好想命令会很繁琐，因为在统一窗口（"签到"）里 要根据不同的课程，在“学员一览表”中减去相应课程的课时，目前已有4种课程，也许还会增加，该如何编写命令才好呢？
另外，既然在学员一览表中 每一位学员的教师和课程都已经记录，在签到中，如我选中该名教师后，学员的下拉菜单中，可否只出现该名教师所教学员的名字。
选中教师，学员后，该学员所学课程的内容，可以自动代入，不需要再选择了。
下面是现有签到按钮的事件命令，红色部分是我比较困惑的问题，这样写会不会出现问题？？
Dim mr As Row =Tables("培训课时统计表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("教师姓名") &" 要签到吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
\'找到对应的学员这一行,改怎么减就怎么减
Dim dr1 As DataRow = DataTables("学员一览表").Find("辅导老师 = \'" & mr("教师姓名") & "\' And 课程 = \'" & mr("授课内容") & "\' and 姓名 = \'" & mr("学员姓名") & "\'")
Dim dr2 As DataRow = DataTables("课类分类表").Find("科目 = \'" & mr("授课内容") & "\'")
If dr1 Is Nothing OrElse dr2 Is Nothing Then
messagebox.show("输入错误")
End If
mr.Save
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
dr1("乐理余额") = dr1("乐理余额") - dr2("乐理费")
dr1("乐理课时") = dr1("乐理课时") - 1
dr1("陪练余额") = dr1("陪练余额") - dr2("陪练费")
dr1("陪练课时") = dr1("陪练课时") - 1
MessageBox.Show(mr("教师姓名") &" 签到成功","提示")
mr.Save
End If
Dim nma()As String = {"学员姓名","授课内容","签到时间","签到次数"} \'A表数据来源列
Dim nmb()As String = {"学员姓名","上课内容","上课时间","节数"} \'B表数据接收列
Dim dr3 As Row = Tables("培训课时统计表").Current
Dim dr4 As Row = Tables("学员上课记录表").AddNew
For i As Integer = 0 To nma.Length - 1
dr4(nmb(i)) = dr3(nma(i))
Next
Dim nmd()As String = {"教师姓名","授课内容","学员姓名","签到时间","签到次数"} \'A表数据来源列
Dim nmc()As String = {"教师姓名","授课内容","学员姓名","签到时间","签到次数"} \'B表数据接收列
Dim dr6 As Row = Tables("培训课时统计表").Current
Dim dr5 As Row = Tables("教师签到记录").AddNew
For i As Integer = 0 To nmd.Length - 1
dr5(nmc(i)) = dr6(nmc(i))
Next
forms("教师签到").close
-- 发布时间：2015/8/7 16:56:00
--
1、下拉的问题
http://www.foxtable.com/help/topics/1523.htm
2、课时问题。不能根据课程去判断上的是什么课吗？知道以后，就减去即可
If mr("授课内容") = "xxx" Then
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
Else If mr("授课内容") = "yyy"
dr1("乐理余额") = dr1("乐理余额") - dr2("乐理费")
dr1("乐理课时") = dr1("乐理课时") - 1
End If
-- 发布时间：2015/8/7 17:58:00
--
下拉菜单显示问题 不用按教师名称筛选的方式吗？
-- 发布时间：2015/8/7 18:02:00
--
1、下拉的问题
http://www.foxtable.com/help/topics/1523.htm
2、课时问题。不能根据课程去判断上的是什么课吗？知道以后，就减去即可
If mr("授课内容") = "xxx" Then
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
Else If mr("授课内容") = "yyy"
dr1("乐理余额") = dr1("乐理余额") - dr2("乐理费")
dr1("乐理课时") = dr1("乐理课时") - 1
End If
因为培训课程中路多，如钢琴、吉他、古筝等等，另外附加乐理知识、陪练、听力。
我是把分类表分开建呢？还是在 If mr("授课内容") = "xxx" Then
的"xxx"这里用and 把所有内容加进去。
可这两种方式都会产生另一个问题，发布后的程序，用户使用，也许会增加新课程。总不能指望用户去修改事件命令吧
-- 发布时间：2015/8/7 18:10:00
--
If mr("授课内容") = "xxx" Then
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
Else If mr("授课内容") = "yyy"
dr1("乐理学费余额") = dr1("乐理余额") - dr2("课时费")
dr1("乐理课时") = dr1("乐理课时") - 1
End If
Else If mr("授课内容") = "zzz"
dr1("陪练费余额") = dr1("陪练费余额") - dr2("课时费")
dr1("乐理课时") = dr1("乐理课时") - 1
End If
dr2的表是这样的 ，
此主题相关图片如下：qq图片20150807180903.png
-- 发布时间：2015/8/7 18:11:00
--
按照您之前说的，我把科目也加多一列 大类区分
-- 发布时间：2015/8/7 20:37:00
--
每一门课程，对应什么扣费，你要在课程分类表那里体现出来。比如加一列 扣费列
直接取扣费列的内容就行了。
-- 发布时间：2015/8/7 21:08:00
--
我把图1窗口签到命令改为：
Dim mr As Row =Tables("培训课时统计表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("教师姓名") &" 是否确认签到?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
\'找到对应的学员这一行,改怎么减就怎么减
Dim dr1 As DataRow = DataTables("学员一览表").Find("辅导老师 = \'" & mr("教师姓名") & "\' And 课程 = \'" & mr("授课内容") & "\' and 姓名 = \'" & mr("学员姓名") & "\'")
Dim dr2 As DataRow = DataTables("课类分类表").Find("科目 = \'" & mr("授课内容") & "\'")
If dr1 Is Nothing OrElse dr2 Is Nothing Then
messagebox.show("错误,请核对授课内容.")
End If
If mr("授课内容") = dr1("课程") Then
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
Else If mr("授课内容") = dr1("乐理程度")
dr1("乐理学费余额") = dr1("乐理学费余额") - dr2("课时费")
dr1("乐理课时") = dr1("乐理课时") - 1
Else If mr("授课内容") = dr1("陪练等级")
dr1("陪练费余额") = dr1("陪练费余额") - dr2("课时费")
dr1("陪练课时") = dr1("陪练课时") - 1
End If
MessageBox.Show(mr("教师姓名") &" 签到成功","提示")
mr.Save
End If
Dim nma()As String = {"学员姓名","授课内容","签到时间","签到次数"} \'A表数据来源列
Dim nmb()As String = {"学员姓名","上课内容","上课时间","节数"} \'B表数据接收列
Dim dr3 As Row = Tables("培训课时统计表").Current
Dim dr4 As Row = Tables("学员上课记录表").AddNew
For i As Integer = 0 To nma.Length - 1
dr4(nmb(i)) = dr3(nma(i))
Next
Dim nmd()As String = {"教师姓名","授课内容","学员姓名","签到时间","签到次数"} \'A表数据来源列
Dim nmc()As String = {"教师姓名","授课内容","学员姓名","签到时间","签到次数"} \'B表数据接收列
Dim dr6 As Row = Tables("培训课时统计表").Current
Dim dr5 As Row = Tables("教师签到记录").AddNew
For i As Integer = 0 To nmd.Length - 1
dr5(nmc(i)) = dr6(nmc(i))
Next
forms("签到").close
图2表事件命令：
If e.DataCol.Name = "学员姓名" Then
If e.NewValue Is Nothing Then
e.DataRow("授课内容") = Nothing
Else
Dim dr3 As DataRow
dr3 = DataTables("学员一览表").Find("姓名 = \'" & e.DataRow("学员姓名") & "\'")
If dr3 IsNot Nothing Then
e.DataRow("授课内容") = dr3("课程")
End If
End If
End If
If e.DataCol.Name = "授课内容" Then
If e.NewValue Is Nothing Then
e.DataRow("培训科目") = Nothing
Else
Dim dr1 As DataRow
dr1 = DataTables("课类分类表").Find("科目 = \'" & e.DataRow("授课内容") & "\'")
If dr1 IsNot Nothing Then
e.DataRow("培训科目") = dr1("培训科目")
e.DataRow("签到时间") = Date.Today
e.DataRow("签到次数") = 1
End If
End If
End If
是可以签到完成了，单另外一个问题 还是解决不了
图3学员一览表中，，有三种项目产生 课时 和课时费。。。。培训课程。陪练、乐理知识
要在这一个签到窗口中完成 是不是比较麻烦、？
还是我在做一个窗口完成其他两项？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
-- 发布时间：2015/8/7 21:30:00
--
一个做也行，另外做一个也是一样的方法啊，你根据你的项目查出对应的数据行，然后根据查询来修改这个表中的表达式就行了。