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


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

主题：共用窗口命令问题
帅哥哟，离线，有人找我吗？
bestorange
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 16:21:00 [只看该作者]

以下是引用大红袍在2015/8/9 16:17:00的发言：

 

你需要那样显示的时候，就生成报表给人家看。

报表模板辅助器，，看起来也挺复杂

 

FOXTABLE能不能合并单元格？？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/9 16:24:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 16:24:00 [只看该作者]

以下是引用大红袍在2015/8/9 16:20:00的发言：

 不是选择分类了吗？

 

 判断分类控件的值，减去对应的值。

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 e.DataCol.Name = "授课内容" OrElse e.DataCol.Name = "分类" Then   
    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
    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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/9 16:28:00 [只看该作者]

汗

 

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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 16:54:00 [只看该作者]

以下是引用大红袍在2015/8/9 16:28:00的发言：

汗

 

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
End If

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
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

 

 

 

那我现在就可以把多余的两个表和窗口的删除掉了吧？


此主题相关图片如下：qq图片20150809165248.png
按此在新窗口浏览图片

然后在签到窗口中 增加一个下拉控件   用于选择分类？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/9 17:03:00 [只看该作者]

 嗯嗯，是的。

 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 17:10:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150809170514.png
图片点击可在新窗口打开查看
我合并成这种格式以后，

准备建一个窗口“课表”来显示该表格。在窗口中插入该表

另外在插入一个下来菜单控件。自定义内容为星期一至星期日

 

我该用什么命令  实现 打开窗口  显示为当天的课表，然后使用者可以通过下拉菜单 查看其它时间的课表？

以天为单位 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/9 17:14:00 [只看该作者]

呃，直接加条件就行。如

 

Tables("课表").Filter = "星期 = '" & e.Form.Controls("ComboBox1").Text & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 17:33:00 [只看该作者]


大师 您看一下。两个问题

1、签到窗口，选择完教师姓名 好学生姓名后自动生成课程内容，分类选择出现学生名单

是不是要改表事件？

 

2、教师课表  合并模式以后，打开课程表窗口。显示为空白

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:知音琴行管理系统正式版.foxdb

[此贴子已经被作者于2015/8/9 17:45:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/9 17:50:00 [只看该作者]

签到窗口应该先选择分类？然后在选择教师姓名和学生姓名吧？？因为我表事件总已经编写了   事件命令
 回到顶部
总数 69 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询