Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
wb.AddForm("","form1","win.htm")
With wb.AddInputGroup("form1","ipg1","节目上报")
    .AddSe lect("lb","类别","小品|相声|唱歌|舞台剧|魔术|舞蹈")   
End With

With wb.AddTable("","Table1")
    .Highlight = 0 \'关闭高亮显示
    .Alternate = 2 \'每两行显示一个不同背景颜色的行
    .RowHead = 1
    .ActiveSheet = "menu"
    .Primarykey = "_Identify" \'设置主键
    .CreateFromDataTable(DataTables("itemlist"),False,"name = ‘" & e.PostValues(key) & "\'","sn","sn","ltd","bm","lb","name")
End With

wb.AddPageFooter("","pf1","").AddLink("返回主页","homepage.htm")
e.WriteString(wb.Build)

老师，我想做到Select控件改变值时，同步刷新数据表，代码应该怎么样修改。

老师，想将它们放在一个页面上，但出现了以下图片的情况

 
此主题相关图片如下：无标题.png

function filb(){
        var result = submitAjaxForm(\'form1\',\'\',false);
     document.getElementById("p1").innerHTML=result;
}

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim dt As DataTable = DataTables("奖项明细表")
If e.PostValues.ContainsKey("lb") AndAlso e.PostValues("lb") > "" Then
    Dim fr As DataRow = dt.SQLFind("奖项名称 = \'" & e.PostValues("lb") & "\'")
    With wb.AddTable("","Table1")
        .Highlight = 0 \'关闭高亮显示
        .Alternate = 2 \'每两行显示一个不同背景颜色的行
        .RowHead = 1
        .ActiveSheet = "menu"
        .Primarykey = "_Identify" \'设置主键
        .CreateFromDataTable(DataTables("人员表"),False,fr("奖项类别") & "= " & fr("序号"),"序号","序号","公司","部门","姓名")
    End With
Else   
    Dim lss As String = dt.SQLGetComboListString("奖项名称","中奖数量 > 0 or 中奖数量 is not null","序号 desc")
    wb.AddForm("","form1","win.htm")
    With wb.AddInputGroup("form1","ipg1","节目上报")
        .AddSe lect("lb","奖项名称",lss).Attribute = ""
    End With
End If
\'PopMessage(22)
wb.AddPageFooter("","pf1","").AddLink("返回主页","homepage.htm")
wb.AppendHTML("<div id=\'p1\' style=\'margin:0.5em\'></div>")  \'插入一个div,用于显示服务器返回的 页面
wb.AppendHTML("<script src=\'./lib/win.js\'></script>")  \'引入脚本文件
e.WriteString(wb.Build)