主题：数据不能写入

请问老师，为什么数据写不到“职工信息总表”的相应列中呢？

 Case "kj.htm"
        Dim dr As DataRow = DataTables("职工信息总表").AddNew()
        Dim wb As New WeUI '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","kj.htm")
        With wb.AddInputGroup("form1","ipg1","职工信息总表")
            .AddSelect("cp","姓名","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","性别","text")
            .AddInput("kh","民族","text")
            .AddInput("dj","年龄","number")
            .AddInput("zk","编制","text")
            .AddInput("sl","政治面貌","text")
            .AddInput("rq","出生日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        e.WriteString(wb.Build) '生成网页
        dr.Save()