主题：共用窗口命令问题

另外，我现在的教师工资结算的流程比较繁琐，要先在签到表里 选择教师，然后去工资结算表里选择分成比例，然后在去教师一览表的教师资料窗口里 统计 

有没有什么简单直接一点的方法

 

填入老师、学生以后，再填入分类，再带出具体课程内容

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

 

 

我指的这段表事件命令

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

 

 

 

这段命令前面再加个IF吗？？

还是把这段命令  改去窗口？

还有，您看学员一览表，

 

如果我把表内容全清空，发布以后 使用者就不能自动增加行输入数据了 ？是为什么？

 

不是直接可以用代码计算吗？直接用代码可以做任何的统计啊。不会做，就先把帮助文档看一遍

 

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

 

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

 

用户菜单那里，加入Cell快捷菜单。

 

新建一个项目导入系统模板，看一下人家快捷菜单是怎么弄的 http://www.foxtable.com/help/topics/1079.htm

 

把表事件命令这样修改以后，在签到窗口 加一个分类选择的空间 就可以实现3个表合并了是吧？？

 

签到表要加入一列分类，存储每次签到上的是什么课。以后想怎么统计都可以啊。