主题：[求助]请教怎么实现该功能？

 班组控件，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

1、参考 http://www.foxtable.com/webhelp/scr/1523.htm

2、照抄2楼的代码

3、如果还有问题，请单独上传一个实例说明。

 与其截图，不如把你的项目发上来测试。你截图别人无法写代码的

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