主题：如何把部门名称变宽？

如

        Dim sb As New StringBuilder
        sb.AppendLine("<form enctype='multipart/form-data' method='post' id='form1' name='form1'>")
        sb.AppendLine("产品: <input name='cp' id='cp' style='width:300px'><br/><br/>")
        sb.AppendLine("客户: <input name='kh' id='kh'><br/><br/>")
        sb.AppendLine("雇员: <input name='gy' id='gy'><br/><br/>")
        sb.AppendLine("单价: <input type='number' name='dj' id='dj'><br/><br/>")
        sb.AppendLine("折扣: <input type='number' name='zk' id='zk' min='0' max='0.15' step='0.01'><br/><br/>")
        sb.AppendLine("数量: <input type='number' name='sl' id='sl'><br/><br/>")
        sb.AppendLine("日期: <input type='date' name='rq' id='rq'><br/><br/>")
        sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
        sb.AppendLine("</form>")
        e.WriteString(sb.ToString)

我是用下列代码生成的截图。

         wb.AddForm("","form1","")

        With wb.AddInputGroup("form1","ipg1","登录信息")

            If khr("登录数据").split(",").length=2

                With .AddSelect("bzdw","" & khr("登录数据").split(",")(0) & "",lsdt.GetComboListString(khr("登录数据").split(",")(0)) & "|")

                    .Attribute = """

                End With

                With .AddSelect("yhfz","" & khr("登录数据").split(",")(1) & "","")

                    .Attribute = """

                End With

            End If

            .AddSelect("username","用户姓名","")

            .AddInput("password","密码","password")

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "登录", "submit")

        End With

        e.WriteString(wb.Build) '生成网页