主题：移动开发设置库存查询

各位专家：您们好！

       最近学习了移动开发，也试着建立了登陆页面和首页，现在想在首页中增加库存查询，但我的数据源中只有入库表和出库表，库存数据要根据这两个表来重新生成，电脑版中我已参照例子设置了1个库存查询的窗口实现了查询的目的。现在使用移动开发，我找不到例子，所以请专家指教，帮我编写一下内部函数。谢谢！

入库表和出库表样式如下：

 

此主题相关图片如下：微信截图_20180305132018.png


此主题相关图片如下：微信截图_20180305132116.png

动态生成库存表

 

http://www.foxtable.com/webhelp/scr/2305.htm

 

然后查询这个生成的表格

 

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

 

我在电脑版上已编辑动态生成库存表，但在移动版上就不知道在什么地方编写代码和改写代码了，请详细的说一下步骤。谢谢！

照着这个做

 

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

 

如果连移动版都不知道在什么地方写代码，请把帮助文档看一遍

 

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

 

如果有数据表，我照着数据筛选显示的例子做是没有问题的，因为我已经建立并完成了根据入库表进行单个产品的入库数据查询。现在再照着这个例子去做时，不知道在哪个地方更换代码来调用动态生成的库存表？请专家帮忙提示一下。

原来代码

 

Dim cmd As new SQLCommand
cmd.ConnectionName = "orders"
cmd.CommandText= "select 产品,客户,数量,单价,[日期] From 订单"
If flt > "" Then
    cmd.CommandText = cmd.CommandText & " where " & flt
End If
With wb.AddTable("","Table1")
    .CreateFromDataTable(cmd.ExecuteReader)
End With

 

改成，比如

 

'生成库存表的代码，得到 DataTables("库存表")

If flt > "" Then
    Tables("库存表").Filter = flt
End If
With wb.AddTable("","Table1")
    .CreateFromTable(Tables("库存表"))
End With

我写的代码如下，在手机上调用该网页时没有提示，也没有内容显示。请专家再帮忙看看。谢谢！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

改成，看弹出什么，如果没有弹出，说明你没有进入执行代码

 

msgbox(123)

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim flt As String
If e.PostValues.ContainsKey("product") Then
    flt = "物料名称 = '" & e.PostValues("product") & "'"
End If
If flt > "" Then
    Tables("当前库存量").Filter = flt
End If
With wb.AddTable("","Table1")
       .CreateFromTable(Tables("当前库存量"))
End With
With wb.AddButtonGroup("","btg1",True)
    .Add("btn1", "重新筛选", "","filter.htm")
End With
e.WriteString(wb.Build)

msgbox(456)

之前的代码是什么都没有弹出，改成上面的代码后，也是什么都没有弹出。还需要如何做？谢谢！

 

请照抄帮助文档的代码过去测试 http://www.foxtable.com/mobilehelp/scr/0115.htm

 

或者贴出你写的全部代码。