如何设置模式窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在BS结构中，如何设置同CS结构中模式窗口，双击某行就选择对应行中数据到指定的控件或列

httprequest事件

Select Case e.Path

Case "test.htm"

Dim wb As New weui

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

With wb.AddInputGroup("form1", "ipg2", "动态赋值")

.AddInput("bm", "部门", "text")

.AddInput("xm", "姓名", "text")

End With

With wb.AddTable("", "Table1")

.head.AddRow("部门", "姓名", "年龄", "电话", "地址") '表头

.body.AddRow("技术部", "张三", "36", "110", "中国北京").Attribute = ""

.body.AddRow("技术部", "李四", "38", "110", "中国上海").Attribute = ""

.body.AddRow("技术部", "王五", "39", "110", "中国深圳").Attribute = ""

.body.AddRow("生产部", "赵六", "39", "110", "中国深圳").Attribute = ""

.body.AddRow("生产部", "刘七", "39", "110", "中国深圳").Attribute = ""

End With

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

End Select

js文件

function setvalues(){

document.getElementById("bm").value = table1.rows[table1.rowSel].cells[0].innerHTML;

document.getElementById("xm").value = table1.rows[table1.rowSel].cells[1].innerHTML;

}

类似这样的窗口，如何设计
图片点击可在新窗口打开查看

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

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)

With ExWeUI.WebUI.AddCollapseGroup("","col01",False)

With .AddPanel("colp01","面板1","./images/button.png")

.Show = True

End With

With .AddPanel("colp02","面板2","./images/tab.png")

End With

With .AddPanel("colp03","加载页面")

.DataUrl = "teststep2.htm"

End With

wb.InsertHTML(.BuildHtml)

End With

wb.AppendHTML("<script src='./lib/exweui.js' ></script>")

e.WriteString(wb.Build)

运行上面代码，有这个提示

[此贴子已经被作者于2024/5/8 10:59:37编辑过]

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

请仔细阅读ExWeUI的帮助文档，按帮助启用ExWeUI

主题：如何设置模式窗口