问题代码如下,全部代码在附件With wb.AddInputGroup("form1", "igp", "输入要添加的教师信息")
With .AddInput("iname", "姓名", "text")
.Required = True
End With
With .AddInput("ipsw", "密码", "text")
.Required = True
End With
.AddSwitch("bzr", "班主任", False)
.AddSwitch("kq", "是否考勤", True)
.AddSwitch("chake", "是否查课员", False)
.AddSwitch("jbzr", "是否级部主任", False)
End With
开发者工具也是一种浏览器。试试谷歌,edge等浏览器