AddRadioGroup 点选不起 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

把下面几行代码去掉试试

wb.InsertHTML("<script src='../mui/js/yzbmyz.js'></script>")

wb.InsertHTML("<script src='../mui/js/mui.min.js'></script>")

'wb.InsertHTML("<script src='../mui/css/mui.css'></script>")

wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")

我新建项目这样测试没有问题

Select Case e.Path

Case "test.htm"

Dim wb As New weui

Dim xgqx As Boolean

wb.InsertHTML("<style>.fox_page_title{color:white}</style>")

wb.InsertHTML("<style>.fox_page_subtitle{color:white;}</style>")

wb.InsertHTML("<style>.fox_page_header{background-color:dodgerblue;}</style>")

wb.InsertHTML("<style>.weui_label{color:dodgerblue;}</style>")

wb.InsertHTML("<style>h5,p{margin:8px 16px;}</style>")

wb.AddPageTitle("","ph1","学生信息审核","仔细审核各项信息后确认审核结果提交")

wb.AddForm("","form1","bzrshxsxxsave.htm") '.Attribute = ""

With wb.AddInputGroup("form1","ipg1","")

Dim In11 = .AddInput("姓名","学生姓名:","text")

In11.readonly=True

Dim In12 = .AddInput("身份证号","身份证号:","text")

In12.readonly=True

Dim In22 = .AddInput("学籍号","学籍号码:","text")

In22.readonly=True

Dim In7 = .AddInput("学校","就读学校:","text")

In7.readonly=True

Dim In8 = .AddInput("班级","就读班级:","text")

In8.readonly=True

Dim In2 = .AddInput("联系电话","联系电话:","text")

In2.readonly=True

Dim In5 = .AddInput("户口地址","户口地址:","text")

Dim In4 = .AddInput("家庭住址","家庭住址:","text")

Dim In3 = .AddInput("监护人姓名","监护姓名:","text")

In3.enabled=xgqx

Dim sel2=.AddSelect("户口性质","户口性质:","[农村]|城镇")

sel2.Enabled =xgqx

Dim sel4= .AddSelect("就读方式","就读方式:","[住校]|走校")

.AddSelect("就餐情况","就餐情况:","[不在校就餐]|早餐|午餐|晚餐|早午餐|早晚餐|午晚餐|早午晚餐").enabled=xgqx

.AddSelect("留守情况","留守情况:","非留守|[单亲留守]|双亲留守").enabled=xgqx

Dim sel6= .AddSelect("贫困建档","贫困建档:","[是]|否")

Dim In21 = .AddInput("邮政编码","邮政编码:","text")

In21.readonly=xgqx

End With

With wb.AddInputGroup("form1","ipg2","以下为选填内容")

Dim In23 = .AddInput("父亲姓名","父亲姓名:","text")

In23.readonly=xgqx

Dim In24 = .AddInput("母亲姓名","母亲姓名:","text")

In24.readonly=xgqx

End With

With wb.AddRadioGroup("form1","审核结论","请选择审核结果再提交")

.Add("bw1","信息审核通过,锁定学生修改",True)

.Add("bw2","信息填报存在不完整?不规范") '默认勾选

.Add("bm3","学校或班填报有误,请你另报")

End With

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

Dim btn1=.Add("btn1", "审核提交", "sumbit")

btn1.kind=1

' btn1.Attribute= "style='width:150px;border-radius:20px;border:1px solid silver'"

End With

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

End Select

主题：AddRadioGroup 点选不起