主题：使用WeUI框架如何验证数据的问题

请教一下，使用WeUI框架做的Web页面，是在httpRequest时间中写代码，实现用手机访问网址后录入数据，而不是用之前电脑上运行Foxtable发布后的应用程序。

还有一个问题，在“submitAjaxForm”这个帮助里面。

 

    Case "handle.htm"
        Dim nms() As String = {"客户","日期","产品","数量","单价"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                e.WriteString("请输入" & nm & "!") '返回错误消息
                Return '必须返回
            End If
        Next
        Dim dr As DataRow = DataTables("订单").AddNew()
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
        e.WriteString("OK") '返回增加成功消息

 

----------------

有2个问题：

1，如果Foxtable的数据库用的SQLserver，并且服务器上没有全部载入“订单”的表格，是否可以使用Datatables（）.Addnew()这个方法。

还是只能使用datatables().SQLupdate()这个方法。

2，即使开始全部载入了数据，但是随着数据的提交，新提交的数据，在服务器端的foxtable会自动更新到当前的datatables里面吗？

 

也就是我之前用foxtable所写的那些逻辑判断语句，是否需要都更改掉？

 

 

另外关于服务器端数据的接收，我的理解是用原有的foxtable编译生成了客户端文件，用户只要运行这个就可以把数据更新到SQLserver里面。

 

现在如果客户端用web方式来更新数据，服务器端就需要一直运行一个foxtable编译后的可执行文件，用来接收数据和更新？

这样会不会导致服务器上的程序运行一段时间后由于内存等原因出错（windows下这种情况还是比较多的）。

那出错以后是不是就会存在数据无法及时更新到服务器里面，需要重新启动这个可执行文件？

 

那再问一下，之前写的一些 datatables().find和 datatables().compute，例如下面的：

 

                Dim phtotle, llsl As Integer

                Dim drr As DataRow

                drr = DataTables("外星轮类生产汇总表").Find("[生产批号] = '" & e.DataRow("生产批号") &"'")

                phtotle = drr("计划生产数量")

 

                llsl = DataTables("外星轮类生产点检记录").Compute("Sum(加工数量)", "生产批号 = '" & e.DataRow("生产批号") & "' And 道序编码 = '005'")

 

以及类似于这种生成目录树的语句都不需要更改吗？

 

                tb.SourceTable = DataTables("外星轮类毛坯数据表") '指定目录树表

                tb.TreeCols = "毛坯生产批号|毛坯炉号" '指定用于生成目录树的列

                tb.SourceCols = "毛坯生产批号|毛坯炉号" '指定数据来源列

                tb.ReceiveCols = "毛坯生产批号|毛坯炉号" '指定数据接收列

                tb.TreeFilter = "[库存状态] = True And " & "[毛坯规格] = '" & mpge & "'"

                Tables("外星轮类生产汇总表").Cols("毛坯生产批号").DropTree = tb.Build()

                    End If

                Else

                    MessageBox.Show("输入的生产批号有误,该项号零件不存在", "提示")

                    e.Cancel = True

                End If

 

 

1. 如果只是用web方式进行操作，手机+电脑的浏览器，datachanging的那些事件判断应该在哪里加？重新写一个htm文件，在里面进行判断？

像在“submitAjaxForm”这个帮助里面，增加一个handle.htm，在这里面进行datatables的判断？

 

    Case "handle.htm"
        Dim nms() As String = {"客户","日期","产品","数量","单价"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                e.WriteString("请输入" & nm & "!") '返回错误消息
                Return '必须返回
            End If
        Next
        Dim dr As DataRow = DataTables("订单").AddNew()
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
        e.WriteString("OK") '返回增加成功消息

 

2. 还有一个问题，如果有的电脑是用编译生成的客户端操作，录入的数据即使用了dr.save()，在服务器端数据应该不会自动刷新吧，这个时候如何保证手机端看到的数据是同步的？

 

谢谢各位的答疑。