专家坐堂-msgbox(key)，部分值不显示，怎么回事？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- msgbox(key)，部分值不显示，怎么回事？

guanli_huiyxq.htm页面代码：

******

wb.AddForm("bt3","form1","guanli_huiyxq_fz.htm")

With wb.AddInputGroup("form1","ipg0","任务提示")

With .AddInput("shrw","审核任务","text")

.value = zhanszshts & "." & shenghzshts & "." & xuelrzts & "." & shenfzrzts & "." & nicshts & "." & weixrzts

.Readonly = True

End With

With .AddInput("tsrw","提示任务","text")

.value = weibmts & "." & huiydjts & "." & shenfrzts & "." & hongbgnts

.Readonly = True

End With

\'展示照审核

With wb.AddArticle("form1","ar1")

.AddImage("./zsz/d/" & zhansz)

.Attribute = "style=\'padding:0.5em;\'"

End With

If (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszsj > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszsj > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszsj <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszsj <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx员") Then \'即展示照,需要审核

With wb.AddInputGroup("form1","ipg1","1.展示照审核")

.AddSelect("zhanszxz\\" & zhansz,"旋转照片","|正转90|反转90|水平翻转|垂直翻转")

.AddSelect("zhanszsh\\" & zhansz,"照片审核","|审核通过|删除处理")

1.当不选择上述2行选项时，msgbox(2)不显示，怎么回事？

End With

End If

******

guanli_huiyxq_fz.htm页面代码：

******

For Each key As String In e.PostValues.Keys

msgbox(key) ’shrw、tsrw，正常弹出。2.key值zhanszxz\\" & zhansz与zhanszsh\\" & zhansz没有弹出，怎么回事？

If key Like "zhanszsh\\*" Then \'处理展示照,审核通过或删除

msgbox(2)

If (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszshiji > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszshiji > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszshiji <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszshiji <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx员") Then

msgbox(3)

zhanszcl = e.PostValues(key) \'展示照处理

msgbox(4)

If zhanszcl = "" Then

msgbox(5)

e.WriteString("请选择展示照审核选项!")

Return ""

End If

******

[此贴子已经被作者于2017/7/23 10:28:07编辑过]