Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]内部函数


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

主题：[求助]内部函数
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]内部函数  发帖心情 Post By：2018/5/22 10:15:00 [只看该作者]

老师，我要把下面代码修改成非副本表查询
Dim Cols,Vals As New List(of String)
Dim flt As String = "1=1"
For Each c As Col In Args(0).Cols
    If c.Visible = True
        cols.add(c.name)
    End If
Next
'生成查询条件
Vals.AddRange(Args(1).Replace("'","''").Replace("*","[*]").Split(","))  '查询值列表并保证其有效
Dim i As Integer = 0
For Each Val As String In Vals
    
    Dim temp As String = ""
    For Each c As String In Cols
        temp = temp & " Convert(" & c & ",'System.String') like '%" & Val & "%' Or"
    Next
    flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"
Next
Return flt
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/22 10:39:00 [只看该作者]

你要改成加载？sqlTable或者sqlQuery表格的？

 

temp = temp & " Convert(" & c & ",'System.String') like '%" & Val & "%' Or"

 

如果是access改成

 

temp = temp & " Cstr(" & c & ") like '%" & Val & "%' Or"

 

如果是sqlserver改成

 

temp = temp & " Convert(varchar(255), " & c & ") like '%" & Val & "%' Or"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/22 10:40:00 [只看该作者]

具体问题，请详细说明。截图或者具体实例。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/5/22 11:24:00 [只看该作者]

谢谢老师，搞好了。

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/5/22 11:46:00 [只看该作者]

老师，设置单元格按钮，如果单元格有该符号?就显示单元格小按钮，否则隐藏小按钮。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/22 11:49:00 [只看该作者]

prepareEdit事件

 

If cstr(e.row(e.col.name)).Contains("?") Then

    e.col.ComboList = "..."

End If

[此贴子已经被作者于2018/5/22 11:48:51编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询