Foxtable(狐表)用户栏目专家坐堂 → setAjaxOptions 问题


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

主题:setAjaxOptions 问题

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
setAjaxOptions 问题  发帖心情 Post By:2019/12/13 11:11:00 [显示全部帖子]


  老师你好:
       
         .AddInput("产品条码","产品条码:","text").Attribute = """

         请问一下文本输入框可以使用“setAjaxOptions”,这个函数吗?
 
         经过测试有时候可以,有时候不可以。不知道怎么回事了?


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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 11:12:00 [显示全部帖子]

.AddInput("产品条码","产品条码:","text").Attribute = """

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 11:13:00 [显示全部帖子]


    有的时候返回的结果是:0

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 11:30:00 [显示全部帖子]

已经上传


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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 11:56:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt



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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 14:58:00 [显示全部帖子]


     老师你好

              代码附件已经重新上传

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 16:03:00 [显示全部帖子]

 
    老师你好:

        msgbox(cps )  加上这个运行就没有问题,代码中把这个删除了   就会出问题。   

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/13 18:08:00 [显示全部帖子]


   修改了一下代码,出错少一点了   不知道有没有关系

Case  "gets.htm"
        Dim cps As String
        Dim tm As String = e.PostValues("产品条码")
        If tm = "" Then
            cps = "未输入条码信息!"
        Else
            Dim dr As DataRow = DataTables("产品资料").SQLFind("蒙牛代码='" & e.PostValues("产品条码") & "'")
            If dr IsNot Nothing Then
                cps  = DataTables("产品资料").SQLGetComboListString("产品名称","蒙牛代码='" & e.PostValues("产品条码") & "'")
            Else
                cps = "未找到对应的产品信息!"
            End If
        End If
        e.WriteString(cps)

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


加好友 发短信
等级:婴狐 帖子:42 积分:711 威望:0 精华:0 注册:2018/9/27 11:18:00
  发帖心情 Post By:2019/12/14 16:18:00 [显示全部帖子]


    感谢老师的回复,经过反复的测试,搜索条件(产品条码)修改的过快,感觉会出现代码暂停的情况。慢一点修改就不会出错了。

 回到顶部