| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]内部函数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119288) |
| -- 作者：江南小镇 -- 发布时间：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
|
| -- 作者：有点甜 -- 发布时间：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" |
| -- 作者：有点甜 -- 发布时间：2018/5/22 10:40:00 -- 具体问题，请详细说明。截图或者具体实例。 |
| -- 作者：江南小镇 -- 发布时间：2018/5/22 11:24:00 -- 谢谢老师，搞好了。 |
| -- 作者：江南小镇 -- 发布时间：2018/5/22 11:46:00 -- 老师，设置单元格按钮，如果单元格有该符号?就显示单元格小按钮，否则隐藏小按钮。 |
| -- 作者：有点甜 -- 发布时间：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编辑过]
|