下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

问题1：想把上图中的按钮移到最下边。问题2：这个黄色引用块能不能随着手机屏幕大小而自动改变适应屏幕呢？

Dim e As RequestEventArgs = args(0)

Dim wb As New weui
Dim pr As DataRow
If e.PlainText <> "" Then
    pr = DataTables("事项进度").SQLFind("_Identify=\'" & e.PlainText & "\'")
    If pr IsNot Nothing Then
        \'        messagebox.Show("1")
        \'        messagebox.Show(pr("完成进度"))
        wb.InsertHTML("事项进度:" & pr("完成进度"))
        e.WriteString(wb.Build)
    End If
End If

js文件：function setvalues(){
 var result=sendAjaxText(table1.primarykey,"sxnr.htm","",false);
 document.getElementById("p1").innerHTML=result;
}

                     Else                         
                            .AddCell("未完成", "class=\'mark\'")                         
                        End If                     
                        .AddCell(IIf(r.isnull("录入时间"), "", Format(r("录入时间"), "yyyy年MM月dd日")))
                       
                    End With                 
                Next
               
            End With        
            wb.AppendHTML("<div id=\'p1\' style=\'background-color:#FFD700;height:200px;width:390px;float:left;margin:5px 5px 5px 0px\'></div>",false) \'插入一个div,用于显示服务器返回的 页面
            \'            With wb.AddButtonGroup("form2", "btg2", False)
            \'                .Add("btn1", "返回首页", "", "default.htm")
            \'                .Add("btn2", "重新查询", "", "ReNamecx.htm")

在118行。上边txt里边。

            
            \'            End With
        ElseIf e.Cookies.ContainsKey("用户类别") And e.Cookies("用户类别") = "员工" Then

wb.AppendHTML("form2", <div id=\'p1\' style=\'background-color:#FFD700;height:100%px;width:100%px;float:left;margin:5px 5px 5px 0px\'></div>",false) \'插入一个div,用于显示服务器返回的 页面

是这个地方改成百分百吗？好像不对

wb.InsertHTML("form2","<div id=\'p1\' style=\'background-color:#FFD700;height:200px;width:390px;float:left;margin:5px 5px 5px 0px\'></div>",false)

此主题相关图片如下：qq图片20230516114301.png

这样报错