关于EXWEUI浮窗问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

EDIT页面单击保存时关闭当前浮层窗口并保存数据，但LIST.HTM页面没有实时刷新怎么回事？

------EDIT函数-------

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim id As String = e.GetValues("id") 'id参数用于区分设置popup里面的页面的控件id,避免出现重复控件ID

Dim Page As Integer '页码变量

If e.GetValues.ContainsKey("page") Then '如果地址中有page参数

Integer.TryParse(e.GetValues("page"), page) '提取page参数

End If

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As Integer = e.GetValues("key")

Dim PageURL = "List.htm?page=" & PageNumber

If PrimaryKey <> -1 Then

If e.PostValues.Count = 0 Then '生成编辑页面

Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)

If dr IsNot Nothing Then

wb.AddForm("","form_Edit","Handledit.htm?key=" & PrimaryKey & "&page=" & PageNumber)

With wb.AddInputGroup("form_Edit","ipg1","编辑记录")

With .AddInput("riqi","<img class='icon' src='/images/date.png'> 日期:","date")

.attribute="style='color: black;text-align: left;font-size: 14px;font-family:Arial'"

.Value=dr("riqi")

End With

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

.Add("btn1" & id, "保存", "button").Attribute= "o ncl ick='myfunction1()'"

.Add("btn3" & id, "取消", "button").Attribute= ""

End With

..........

e.WriteString(wb.Buildhtml("form_Edit"))

------handledit.htm代码------

Dim e As RequestEventArgs = args(0)

Dim PrimaryKey As Integer = e.GetValues("key")

msgbox(2)

Dim nms() As String = {"riqi","classtype","itemname","detailname","money"}

Dim nms1() As String ={"日期","收支","项目","名称","金额"}

For i As Integer = 0 To nms.length - 1

If e.PostValues.ContainsKey(nms(i)) = False Then

e.WriteString("请输入" & nms1(i) & "!") '返回错误消息

Return "" '必须返回

End If

nms = New String() {"riqi","classtype","itemname","detailname","money","other","shouzhiAcc"}

Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

dr.Save()

e.WriteString("EditOK")

-----myfunction1代码-------

function myfunction1(){

var result = submitAjaxForm('form_Edit','',false);

if (result =='EditOK') {closePopup("pop02")}

else {showDialog('dlg3','错误',result)}

}

[此贴子已经被作者于2022/3/17 18:15:33编辑过]

if (result =='EditOK') {

closePopup("pop02");

location="list.htm"

}

EDIT.HTM点击确定按钮时，HANDLEDIT.HTM页面没有接收数据怎么回事？（即调试handledit.htm页面没有被执行）

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim id As String = e.GetValues("id") 'id参数用于区分设置popup里面的页面的控件id,避免出现重复控件ID

Dim Page As Integer '页码变量

If e.GetValues.ContainsKey("page") Then '如果地址中有page参数

Integer.TryParse(e.GetValues("page"), page) '提取page参数

End If

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As Integer = e.GetValues("key")

Dim PageURL = "List.htm?page=" & PageNumber

If PrimaryKey <> -1 Then

'If e.PostValues.Count = 0 Then '生成编辑页面

Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)

If dr IsNot Nothing Then

wb.AddForm("","formEdit","handledit.htm?&key=" & PrimaryKey & "&page=" & PageNumber)

With wb.AddInputGroup("formEdit","ipg1","编辑记录")

With .AddInput("riqi","<img class='icon' src='/images/date.png'> 日期:","date")

.Value=dr("riqi")

End With

With .AddSelect("classtype","<img class='icon' src='/images/class.png'> 收支:","|" & DataTables("dict").SqlGetComboListString("Class").replace(dr("classtype"),"[" & dr("classtype") & "]"))

.Attribute = """

End With

With .AddSelect("itemname","<img class='icon' src='/images/item.png'> 项目:","|" & DataTables("dict").SqlGetComboListString("itemming","Class='" & dr("classtype") & "'").replace(dr("itemname"),"[" & dr("itemname") & "]"))

.Attribute = """

End With

.AddSelect("detailname","<img class='icon' src='/images/name.png'> 名称:","|" & DataTables("dict").SqlGetComboListString("listname","class='" & dr("classtype") & "' and ItemMing='" & dr("itemname") & "'").replace(dr("detailname"),"[" & dr("detailname") & "]"))

.AddSelect("shouzhiAcc","<img class='icon' src='/images/account.png'> 账号:",DataTables("dict").SqlGetComboListString("Account").replace(dr("shouzhiAcc"),"[" & dr("shouzhiAcc") & "]"))

With .AddInput("money","<img class='icon' src='/images/money.png'> 金额:","number")

.Step="0.01"

.Value=dr("money")

End With

With wb.AddInputGroup("formEdit","ipg2","备注")

.AddTextArea("other",1).Value = dr("other")

End With

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

.Add("btn1" & id, "保存", "button").Attribute="onclick=myfunctio n 1 ()'"

.Add("btn3" & id, "取消", "button").Attribute= ""

End With

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

Else

With wb.AddMsgPage("","msgpage","编辑失败", "此记录可能已经被删1111除!") '提示用户此订单不存在.

.icon= "Warn"

.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮

End With

End If

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

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

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

e.WriteString(wb.Buildhtml("formEdit"))

function myfunct ion1(){

var result = submitAjaxForm('formEdit','',false);

//if (result1 =='EditOK') {show('dlg4')}

if (result =='EditOK') {

closePopup("pop02");

location="list.htm?page=" + table1.pagenumber

}

else {showDialog('dlg3','错误',result)}

}

var result = submitAjaxForm('formedit','',false);

ID	输入框ID,注意生成网页时，WeUI会自动将所有ID转换为小写，例如"Table1"或转换为"table1"，今后不再重复提示，大家请自行留意。

明白了，谢谢老师。

另外WEUI有表头冻结功能吗？就是往下移动时表头不动、

参考：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157399&page=1&star=1

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=170255

收到，学习一下。

出现一个比较奇怪现象，有一个字段类型为字符型。字段名为：“other” ，该字段设置为多行文本框。EDIT编辑该字段时，如果该字段有内容就可以保存上，如果把该字段内容改为空则该字段就不保存怎么回事？（其他字段正常）

Dim e As RequestEventArgs = args(0)

Dim PrimaryKey As Integer = e.GetValues("key")

Dim nms() As String = {"riqi","classtype","itemname","detailname","money"}

Dim nms1() As String ={"日期","收支","项目","名称","金额"}

For i As Integer = 0 To nms.length - 1

If e.PostValues.ContainsKey(nms(i)) = False Then

e.WriteString("请输入" & nms1(i) & "!") '返回错误消息

Return "" '必须返回

End If

nms = New String() {"riqi","classtype","itemname","detailname","money","other","shouzhiAcc"}

Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

dr.Save()

e.WriteString("EditOK")

--------------------

With wb.AddInputGroup("formEdit","ipg2","备注")

.AddTextArea("other",1).Value = dr("other")

End With

[此贴子已经被作者于2022/3/28 15:42:08编辑过]

如果要保存空值

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

else

dr(nm) = nothing

End If

主题：关于EXWEUI浮窗问题