- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据提交不上 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148470)
-- 发布时间：2020/4/8 16:23:00
-- 数据提交不上
老师，帮我看一下代码怎么改，我输入“出勤人数”和请假人员， 保存后 后台数据的 出清人数 请假人员没有内容
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("出勤人数","出勤人数","number").Attribute=" style=\'border-left:1px solid #CCC\';"
With .AddInputCell("ic4") \'
.AddLabel("lsj","请假人员",0) \'
.AddInput("sj","text",1).Attribute=" style=\'border-left:1px solid #CCC\';read;"
.AddVcodeButton("hym","请选择人员",2).Attribute=""" \'隐藏page1显示page2
End With
Dim nms() As String = {"出勤人数","sj"} \'不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return"" \'必须返回
End If
Next
nms = New String() {"出勤人数","sj"} \'重新定义了nms数组,增加了两列.
Dim dr As DataRow = dt.AddNew
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
dr.Save
e.WriteString(wb.Build)
-- 发布时间：2020/4/8 17:21:00
--
什么地方提交数据的？
-- 发布时间：2020/4/8 18:32:00
--
通过JS取值到请假人员input上 请假人数是通过请假人员input 取值的 然后点击确定按钮，保存到SQL表，前面功能都实现了 现在是点击确定的时候 保存SQL表没执行 老师帮我看一下
此主题相关图片如下：333.png
[此贴子已经被作者于2020/4/8 18:32:56编辑过]
-- 发布时间：2020/4/9 8:57:00
--
js文件发上来
-- 发布时间：2020/4/9 9:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2020/4/9 9:56:00
--
调用的js文件呀