- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教怎么实现该功能？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100025)
-- 发布时间：2017/5/3 11:49:00
-- [求助]请教怎么实现该功能？
此主题相关图片如下：要实现的功能.jpg
-- 发布时间：2017/5/3 11:56:00
--
班组控件，TextChanged事件，写代码
Dim t As Table = e.Form.Controls("Table1").Table
t.Filter = "班组 = \'" & e.Sender.Text & "\'"
录入按钮，写代码
Dim t As Table = e.Form.Controls("Table1").Table
Dim d As Date = e.Form.controls("DateTimePicker1").Text
For Each r As Row In t.Rows
r("考勤日期") = d
Next
-- 发布时间：2017/5/3 13:23:00
--
谢谢！
有两个问题：
1.选择考勤班组后要求窗口表里面自动列出选择的班组所有人员，（也许要分开一个表专门登记人员的？）
2.上班时间录入完后，按录入健要将记录增加到表内。选择其他班组的录完时间后也要后接着上条记录增加下去。
刚学，新手 问题有点啰嗦 请老师指教！
-- 发布时间：2017/5/3 14:10:00
--
1、参考 http://www.foxtable.com/webhelp/scr/1523.htm
2、照抄2楼的代码
3、如果还有问题，请单独上传一个实例说明。
-- 发布时间：2017/5/4 17:17:00
--
此主题相关图片如下：要实现的功能.jpg
[此贴子已经被作者于2017/5/4 17:21:48编辑过]
-- 发布时间：2017/5/4 18:26:00
--
与其截图，不如把你的项目发上来测试。你截图别人无法写代码的
Dim v1 As String = e.Form.controls("ComboBox1").Text
Dim v2 As Date = e.Form.Controls("DateTimePicker1").Text
For Each dr1 As DataRow In DataTables("人员表").Select("在职 = true and 班组 = \'" & v1 & "\'")
Dim dr2 As DataRow = DataTables("考勤表").AddNew()
dr2("工号") = dr1("工号")
dr2("上班日期") = v2
Next
-- 发布时间：2017/5/5 9:04:00
--
谢谢 前辈 ！测试好OK了！