Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发设置库存查询


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

主题：移动开发设置库存查询
帅哥哟，离线，有人找我吗？
wangj6666
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		移动开发设置库存查询  发帖心情 Post By：2018/3/5 13:22:00 [显示全部帖子]

各位专家：您们好！

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

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

 


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180305132018.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180305132116.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 15:04:00 [显示全部帖子]

以下是引用有点甜在2018/3/5 14:30:00的发言：

动态生成库存表

 

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

 

然后查询这个生成的表格

 

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

 

我在电脑版上已编辑动态生成库存表，但在移动版上就不知道在什么地方编写代码和改写代码了，请详细的说一下步骤。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 15:30:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 16:23:00 [显示全部帖子]

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

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 16:33:00 [显示全部帖子]

以下是引用有点甜在2018/3/5 16:26:00的发言：

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

 

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)

之前的代码是什么都没有弹出，改成上面的代码后，也是什么都没有弹出。还需要如何做？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 16:51:00 [显示全部帖子]

我的全部代码如下：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 17:09:00 [显示全部帖子]

是的，这里还经弄掉了。

增加后，执行时提示我不存在名称为“当前库存量”的table，应该是我的内部函数“动态生成当前库存量”没有得到调用，请问还需要如何处理？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/5 17:19:00 [显示全部帖子]

搞定。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/6 10:42:00 [显示全部帖子]

昨天已经搞定了问题，但在我写用户登陆控制代码还是直接写代码控制的，例子中描述：If UserName = "张三" AndAlso Password = "888" Then  '实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  = True。但我不知道如何改为从数据库读取用户名和密码，请再指教。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2018/3/6 11:42:00 [显示全部帖子]

以下是引用有点甜在2018/3/6 10:44:00的发言：

比如

 

Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = '" & UserName & "'")  
If dr isnot Nothing AndAlso Password = dr("password") Then
    Verified  = True
End If

将该段代码修改后，提示后面的代码Dim dr As DataRow = UserTable.Find("用户名 = '" & UserName & "'")被提示出错。请帮助解决！谢谢！
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 7 次数据查询