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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 14:30:00 [显示全部帖子]

动态生成库存表

 

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

 

然后查询这个生成的表格

 

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

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 15:21:00 [显示全部帖子]

照着这个做

 

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

 

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

 

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

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 15:58:00 [显示全部帖子]

原来代码

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 16:40:00 [显示全部帖子]

以下是引用wangj6666在2018/3/5 16:33:00的发言:

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

 

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

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 16:56:00 [显示全部帖子]

你httprequest那里,应该加入list2.htm的判断吧?不然怎么执行函数?

 

类似

 

    Case "list2.htm"
        Functions.Execute("List2",e)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/5 17:13:00 [显示全部帖子]

把你【动态生成当前库存量】的代码弄成一个内部函数,然后再调用list2,如

 

Functions.Execute("动态生成当前库存量")

Functions.Execute("List2",e)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/6 11:43:00 [显示全部帖子]

以下是引用wangj6666在2018/3/6 11:42:00的发言:

将该段代码修改后,提示后面的代码Dim dr As DataRow = UserTable.Find("用户名 = '" & UserName & "'")被提示出错。请帮助解决!谢谢!

 

提示什么错?请具体说明。是不是要改成 _UserTable ?

[此贴子已经被作者于2018/3/6 11:44:51编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/6 14:55:00 [显示全部帖子]

这个代码换一个名称即可,如

 

Dim fdr As DataRow
fdr = DataTables("表A").Find("第一列 = '" & UserName & "'")  
If fdr isnot Nothing AndAlso Password = dr("password") Then
    Verified  = True
End If
 
或者修改你这句代码
 
dr = UserTable.Find("用户名 = '" & UserName & "'")

 回到顶部
总数 11 1 2 下一页