主题：共用窗口命令问题

 1、 参考 http://www.foxtable.com/help/topics/1523.htm

 

 2、http://www.foxtable.com/help/topics/1909.htm

 

培训课时统计表 中命令条件  还是有问题。。

我就算  分类选成听力，然后选教师和学生名字之后，，还是出现  钢琴三级。。。

不应该只有分类为主课  才出现这个

分类听力  就出现听力的 程度了

1的问题，我现有的签到窗口就是按照您给的这个参考做的，单现在问题出现在条件出现了两个表的内容“课类分类表”“学员一览表”。所以怎样才能实现呢？？用分类控制课程，用教师和学生代入课程，这不是就矛盾了吗？

 

2、我就参考您给的资料，修改窗口命令 还是下拉菜单控件的命令呢？

此主题相关图片如下：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

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,签到,AfterLoad
详细错误信息：
设置 DataSource 属性后无法修改项集合。

抛开我前面自己编写的命令~因为我即编写了 表事件命令又编写了窗口命令  也许才会搞混乱

 

现在如果我想实现的是：

 

进入签到窗口以后，先选择签到的“分类”：主课、附件、陪练

然后选择“教师姓名”，选择“学员姓名”

自动代入 “授课内容”

 

在“签到统计表中”根据"授课内容"自动代入“培训科目”“签到次数”“日期”

 

 

该如何编写命令？在表事件中还是窗口事件？

先把帮助文档看一下吧，你的问题很乱，思路也很乱啊。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

不乱啊~~是琴行这套运营模式乱~~

 

如果先选择是选择 教师和学生之后 代入课程 当然也就自动代入分类了  很简单

 

但是现在很乱，  要先选择分类，然后再选择教师和学生， 求自动代入  该分类下  这名老师和学生关联的课程

If e.Datarow("分类") = "主课" Then

 

ElseIf  e.Datarow("分类") = "陪练" Then

 

End If