运行代码时出现错误提示，是哪里的问题呢？表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
加好友 
发短信
Post By：2020/12/13 21:57:00 [只看该作者]
