我就不打开你的文件了,在查询按钮原来代码的后面加上:
e.Form.controls("某某文本框1").Value = Tables("某表").Compute("Sum(总计小时数1)") + Tables("某表").Compute("Sum(总计小时数2)") + Tables("某表").Compute("Sum(总计小时数3)")
e.Form.controls("某某文本框2").Value = Tables("某表").Rows.Count