- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求高手帮忙纠错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72957)
-- 发布时间：2015/8/9 19:31:00
-- 求高手帮忙纠错
此主题相关图片如下：qq图片20150809181554.png
图中为我设计的一个表 绑定的窗口，
我现在命令如下，在没有添加分类选项之前 运行已经没问题了，加上分类和第一组命令以后，下一步有点懵
窗口afterload：
Tables("培训课时统计表").AddNew
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox3")
cmb.ComboList = DataTables("课类分类表").GetComboListString("分类")
学生姓名后面的combox2控件enter:
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = \'" & str & "\'")
签到按钮Click：
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("分类") = "主课" Then
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
dr1("剩余课时") = dr1("剩余课时") - 1
Else If mr("分类") = "附加"
dr1("乐理学费余额") = dr1("乐理学费余额") - dr2("课时费")
dr1("乐理课时") = dr1("乐理课时") - 1
Else If mr("分类") = "陪练"
dr1("陪练费余额") = dr1("陪练费余额") - dr2("课时费")
dr1("陪练课时") = dr1("陪练课时") - 1
Else If mr("分类") = "听力"
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
绑定表表事件：
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 = "授课内容" OrElse e.DataCol.Name = "分类" Then
If e.NewValue Is Nothing Then
e.DataRow("培训科目") = Nothing
Else
Dim dr1 As DataRow
dr1 = DataTables("课类分类表").Find("科目 = \'" & e.DataRow("授课内容") & "\' and 分类 = \'" & e.DataRow("分类") & "\'")
If dr1 IsNot Nothing Then
e.DataRow("培训科目") = dr1("培训科目")
e.DataRow("签到时间") = Date.Today
e.DataRow("签到次数") = 1
End If
End If
End If
抛开我前面自己编写的命令~因为我即编写了 表事件命令又编写了窗口命令 也许才会搞混乱
现在如果我想实现的是：
1、进入签到窗口以后，先选择签到的“分类”：主课、附加、陪练
2、然后选择“教师姓名”，选择“学员姓名”
3、"TextBox1"自动代入"授课内容"(由于教师和学生之间，同时拥有：主课、附加、陪练这三种分类的课程。所以需根据条件1"分类"来判断代入内容)
自动代入 “授课内容”
4、在“签到统计表中”根据"授课内容"自动代入“培训科目”“签到次数”“日期”
该如何编写命令？在表事件中还是窗口事件？
下图为 主课、附加、陪练 三种分类的来由
此主题相关图片如下：qq图片20150809193017.png
-- 发布时间：2015/8/9 19:43:00
--
-- 发布时间：2015/8/9 19:45:00
--
-- 发布时间：2015/8/9 19:56:00
--
写在 签到窗口的事件里吗？？还是表事件
我的授课内容来自
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
-- 发布时间：2015/8/9 20:00:00
--
是否可以在表事件中
把我写的命令 加上你发给我的 条件命令 ？
该用什么格式写呢?
-- 发布时间：2015/8/9 20:07:00
--
If e.DataCol.Name = "学员姓名" OrElse e.DataCol.Name = "分类" Then
If e.NewValue Is Nothing Then
e.DataRow("授课内容") = Nothing
Else
Dim dr3 As DataRow
dr3 = DataTables("学员一览表").Find("姓名 = \'" & e.DataRow("学员姓名") & "\' and 分类 = \'" & e.DataRow("分类") & "\'")
If dr3 IsNot Nothing Then
e.DataRow("授课内容") = dr3("课程")
End If
End If
End If
-- 发布时间：2015/8/9 20:07:00
--
都是最基础的知识啊。去看视频教程和帮助文档。
-- 发布时间：2015/8/9 20:09:00
--
你先看看帮助文档吧，磨刀不误砍柴功
-- 发布时间：2015/8/9 20:12:00
--
If e.DataCol.Name = "学员姓名" OrElse e.DataCol.Name = "分类" Then
If e.NewValue Is Nothing Then
e.DataRow("授课内容") = Nothing
Else
Dim dr3 As DataRow
dr3 = DataTables("学员一览表").Find("姓名 = \'" & e.DataRow("学员姓名") & "\' and 分类 = \'" & e.DataRow("分类") & "\'")
If dr3 IsNot Nothing Then
e.DataRow("授课内容") = dr3("课程")
End If
End If
End If
如此编辑事件命令以后，应用 签到窗口 在选择完 分类后 提示运行错误，调用的目标发生异常 只能按ALT+F4关闭
-- 发布时间：2015/8/9 20:15:00
--
签到事件中 的e中是打开的窗口中的参数，肯定不能用，这个是事件datacolchanged中的值