主题：移动开发在使用过程中偶有这样的错误提示

For i As Integer = 0 To inms.Length -1
    dr(cnms(i)) = e.PostValues(Inms(i))
Next

改成

For i As Integer = 0 To inms.Length -1
   
    If cnms(i) = "份数" Then
        dr(cnms(i)) = val(e.PostValues(Inms(i)))
    Else
        dr(cnms(i)) = e.PostValues(Inms(i))
    End If
   
Next

1、你可以用复选框，列出一星期的日期，别人勾选就好了

http://www.foxtable.com/mobilehelp/scr/0053.htm

2、你也可以放入多个日期框，有多少个日期有值，你就增加多少行数据