- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]运行代码时出现不能包含NULL值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159091)
-- 发布时间：2020/12/13 21:57:00
-- [求助]运行代码时出现不能包含NULL值
运行代码时出现错误提示，是哪里的问题呢？表B内部表；
此主题相关图片如下：微信图片_20201213215502.png
Select Case e.Path
Case "AddNew.htm"
If e.PostValues.Count = 0 Then
Dim sb As New StringBuilder
sb.AppendLine("<form action=\'AddNew.htm\' enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>")
sb.AppendLine("姓名: <input name=\'cp\' id=\'cp\'><br/><br/>")
sb.AppendLine("性别: <input name=\'kh\' id=\'kh\'><br/><br/>")
sb.AppendLine("年龄: <input name=\'gy\' id=\'gy\'><br/><br/>")
\' sb.AppendLine("单价: <input type=\'number\' name=\'dj\' id=\'dj\'><br/><br/>")
\' sb.AppendLine("折扣: <input type=\'number\' name=\'zk\' id=\'zk\' min=\'0\' max=\'0.15\' step=\'0.01\'><br/><br/>")
sb.AppendLine("数量: <input type=\'number\' name=\'sl\' id=\'sl\'><br/><br/>")
sb.AppendLine("日期: <input type=\'date\' name=\'rq\' id=\'rq\'><br/><br/>")
sb.AppendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>")
sb.AppendLine("</form>")
e.WriteString(sb.ToString)
Else
Dim dr As DataRow = DataTables("表B").SQLAddNew()
Dim inms() As String = {"cp","kh","gy","sl","rq"} \'输入框名称数组
Dim cnms() As String = {"姓名","性别","年龄","数量","日期"} \'列名数组,注意列名和输入框必须一一对应,位置不能错乱
For i As Integer = 0 To inms.Length -1
dr(cnms(i)) = e.PostValues(Inms(i))
Next
dr.Save() \'用SQLAddNew增加的行,必须保存一下,否则会被丢弃.
Dim sb As New StringBuilder
sb.AppendLine("增加订单成功! <br/><br/>")
sb.AppendLine("<a href=\'AddNew.htm\'>继续增加</a>")
e.WriteString(sb.ToString)
End If
End Select
-- 发布时间：2020/12/13 22:17:00
--
内部表使用AddNew，不要使用SQLAddNew