Foxtable(狐表)用户栏目专家坐堂 → 请教老师一个问题?


  共有2542人关注过本帖树形打印复制链接

主题:请教老师一个问题?

帅哥哟,离线,有人找我吗?
fangdejin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4321 威望:0 精华:0 注册:2018/7/18 21:08:00
请教老师一个问题?  发帖心情 Post By:2018/10/13 10:01:00 [只看该作者]

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='xm' id='xm'><br/><br/>")
            sb.AppendLine("年龄: <input name='nl' id='nl'><br/><br/>")
            sb.AppendLine("职业: <input name='zy' id='zy'><br/><br/>")
            sb.AppendLine("身高: <input type='float' name='sg' id='sg'><br/>cm<br/>")
            sb.AppendLine("体重: <input type='float' name='tz' id='tz' min='0' max='300' step='1'><br/>kg<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("会员花名册").SQLAddNew()
            Dim inms() As String = {"xm","nl","zy","sg","tz","hy","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



出现错误提示:
.NET Framework 版本:2.0.50727.8922
Foxtable 版本:2018.10.9.1
错误所在事件:项目,HttpRequest
详细错误信息:
索引超出了数组界限。


 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4321 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2018/10/13 10:02:00 [只看该作者]

这个是从高级指南直接COPY 简单改动了一下,然后出现错误~~

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/13 10:07:00 [只看该作者]

2个数组没有一一对应,第一个7项,第二个6项

Dim inms() As String = {"xm","nl","zy","sg","tz","hy","rq"} '输入框名称数组 
Dim cnms() As String = {"姓名","年龄","职业","身高","体重","日期"} '列名数组,注意列名和输入框必须一一对应,位置不能错乱
[此贴子已经被作者于2018/10/13 10:07:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4321 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2018/10/13 10:21:00 [只看该作者]

多谢~~,我自己太笨了。。。。

 回到顶部