Foxtable(狐表)用户栏目专家坐堂 → 求助:从后台获取查询条件的,某列的值


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

主题:求助:从后台获取查询条件的,某列的值

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/24 17:27:00 [显示全部帖子]

 

[此贴子已经被作者于2017/5/24 17:26:52编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/24 17:29:00 [显示全部帖子]

If dr1 IsNot Nothing Then
    For Each c As DataCol In DataTables("食堂菜单").DataCols
        If c.Name.StartsWith("周") = false OrElse c.name.Contains(str2) Then
            Dim dr As DataRow = dt.AddNew()
            dr("日期") = c.Name
            dr("菜肴") = dr1(c.Name)
        End If
    Next
End If
[此贴子已经被作者于2017/5/24 17:29:39编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/25 8:55:00 [显示全部帖子]

 循环的时候,不是可以直接用Table?

 

If dr1 IsNot Nothing Then
    For Each c As Col In Tables("食堂菜单").Cols
        If c.Name.StartsWith("周") = false OrElse c.name.Contains(str2) Then
            Dim dr As DataRow = dt.AddNew()
            dr("日期") = c.Name
            dr("菜肴") = dr1(c.Name)
        End If
    Next
End If

[此贴子已经被作者于2017/5/25 8:55:44编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/25 11:49:00 [显示全部帖子]

1、你的临时表为什么要排序?你生成的过程,就是排序的过程啊。

 

2、如果要排序,你要用这个方法 http://www.foxtable.com/mobilehelp/scr/0067.htm

 


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/31 10:40:00 [显示全部帖子]

你菜单绑定click事件执行某个js函数了吗?

 

在js函数里面,获取不就好了?

 

var str = table1.rows[table1.rowSel].cells[1].innerHTML

alert(str)


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/1 17:10:00 [显示全部帖子]

js,发送ajax请求,获取图片地址

 

    alert("123");

    var str = table1.rows[table1.rowSel].cells[1].innerHTML
    var result = sendAjaxText(str, "getImgUrl.htm","",false);
    alert(result);
    document.getElementById("图片控件id").setAttribute("src", result);

    alert("ok");

 

后台响应 getImgUrl.htm

 

select case e.path
    case "getImgUrl.htm"
        dim str as string = e.PlainText
        msgbox(str)
        e.WriteString("http://www.foxtable.com/bbs/images/userface/image1.gif")
end select

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/7 9:14:00 [显示全部帖子]

 

.AddButton("btn1","返回").Attribute = "onclick='history.back()'"


 回到顶部