主题：外部引用区域上移

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

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

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

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

sxnr函数：

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

这样报错

现在改完，底下的按钮不见了

找到原因了，把那个float参数删掉就行了