- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- addnew增加失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160440)
-- 发布时间：2021/2/2 17:00:00
-- addnew增加失败
写了weui的addnew函数，在添加记录时不报错，但数据都没有填加上，都是空的，是怎么回事？
此主题相关图片如下：qq截图20210202165941.png
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then \'生成增加订单网页
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","增加记录")
.AddInput("hdrq","活动日期","date")
.AddInput("hdfy","活动费用","number")
.AddInput("yckf","预存扣费","number")
.AddInput("zxsf","线上收费","number")
.AddInput("xxsf","线下收费","number")
.AddInput("bzdemo","备注","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else \'保存新增的订单
Dim dr As DataRow = DataTables("Table_Mem").AddNew()
Dim nms() As String = {"huodongdate","huodongfee","yucunkoufee","onlinefee","offlinefee","demo"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
With wb.AddMsgPage("","msgpage","增加成功", "操作完成!") \'增加订单成功提示信息
.AddButton("btn1","继续增加","addnew.htm")
.AddButton("btn1","返回列表","list.htm")
End With
End If
e.WriteString(wb.Build)
-- 发布时间：2021/2/2 17:19:00
--
控件名称根本都对应不上
.AddInput("hdrq","活动日期","date")
.AddInput("hdfy","活动费用","number")
……
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else \'保存新增的订单
Dim dr As DataRow = DataTables("Table_Mem").AddNew()
Dim nms() As String = {"hdrq","hdfy","。。。。。。。。。"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
-- 发布时间：2021/2/2 17:27:00
--
Dim nms() As String = {"hdrq","hdfy","。。。。。。。。。"} 这个地方应该是ID还是字段名称？我写ID，他报错说是这些hdrq不属于表“table”
-- 发布时间：2021/2/2 17:28:00
--
那就把ID和列名都全部改为一样。或者看看这里第二段代码的用法：http://www.foxtable.com/webhelp/topics/1533.htm
-- 发布时间：2021/2/2 17:33:00
--
明白了，谢谢老师。
-- 发布时间：2021/2/2 21:00:00
--
标红处报错，从字符串“null”到类型“Integer”的转换无效。输入字符串的格式不正确。http://192.168.1.5/edit.htm?page=0&key=null
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer = e.GetValues("page")
msgbox(1)
Dim PrimaryKey As Integer = e.GetValues("key")
msgbox(2)
Dim PageURL = "List.htm?page=" & PageNumber
msgbox(3)
If e.PostValues.Count = 0 Then \'生成编辑页面
Dim dr As DataRow = DataTables("Table_Mem").SQLFind("[memid]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","edit.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","编辑记录")
.AddInput("huodongdate","活动日期","date").Value = dr("huodongdate")
.AddInput("huodongfee","活动费用","number").Value = dr("huodongfee")
.AddInput("yucunkoufee","预存扣费","number").Value = dr("yucunkoufee")
.AddInput("onlinefee","线上收费","number").Value = dr("onlinefee")
.AddInput("offlinefee","线下收费","number").Value = dr("offlinefee")
.AddInput("demo","备注","Text").Value = dr("demo")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else
With wb.AddMsgPage("","msgpage","编辑失败", "此记录可能已经被删除!") \'提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) \'生成返回原来页面的按钮
End With
End If
Else \'保存编辑结果
Dim dr As DataRow = DataTables("Table_Mem").SQLFind("[memid]=" & PrimaryKey)
If dr IsNot Nothing Then
Dim nms() As String = {"huodongdate","huodongfee","yucunkoufee","onlinefee","offlinefee","demo"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
\'显示完成提示,2妙手自动返回原来的页面
wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)
wb.AddToast("","t1", "编辑完成",0).Visible = True
Else
With wb.AddMsgPage("","msgpage","保存失败", "此订单可能已经被删除!") \'提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) \'生成返回原来页面的按钮
End With
End If
End If
e.WriteString(wb.Build)
-- 发布时间：2021/2/2 21:12:00
--
key是一个字符串"null"，不能转换为整数。获取的key值有问题
-- 发布时间：2021/2/2 21:19:00
--
是啊，我知道。给key手动指定一个主键值就没问题。不知道为啥没获取到这个KEY值？EDIT是从上面的LIST页面获取值的。数据库是SQL，主键是自动增长的那种。
-- 发布时间：2021/2/2 21:22:00
--
LIST页面，js，详细代码发上来啊
-- 发布时间：2021/2/2 21:41:00
--
明白问题在哪了，list面页select没有把主键包括进来，可是我不想显示主键这个字段到页面啊怎么弄？