代码没问题
e.Form.Controls("Label7").text = "时间:" & Format(Date.NOW, "HH:mm:ss") & " " & CurrentTable.DataTable.Caption
有问题,就贴出你写的代码。