| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- substring (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89065) |
| -- 作者：lk15502 -- 发布时间：2016/8/15 11:12:00 -- substring 窗口在下面是库存表，上面有两个文本框，是大于门幅和小于门幅，用于筛选，门幅列是字符型的，第一个是字母如：Y122，Q233，文本框只输入如122,233这样的字符筛选，下面的代码应该怎么改 Dim mf As String = e.datarows("门幅").substring(1) Dim dyts As WinForm.TextBox = e.Form.Controls("TextBox5") Dim xyts As WinForm.TextBox = e.Form.Controls("TextBox6") If dyts.value Is Nothing AndAlso xyts.value Is Nothing Then MessageBox.Show("请输入天数筛选","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) Return Else If dyts.value Is Nothing Then DataTables("库存表").loadfilter = "mf <= \'" & xyts.value & "\'" DataTables("库存表").load End If If xyts.value Is Nothing Then DataTables("库存表").loadfilter = "mf >= \'" & dyts.value & "\'" DataTables("库存表").load End If If dyts.value IsNot Nothing AndAlso xyts.value IsNot Nothing Then DataTables("库存表").loadfilter = "mf >= \'" & dyts.value & "\' and mf <= \'" & xyts.value & "\'" DataTables("库存表").load End If End If |
| -- 作者：Hyphen -- 发布时间：2016/8/15 11:25:00 -- 是按字母比较大小还是按数字比较大小，还是同一个字母的数字进行比较。 |
| -- 作者：lk15502 -- 发布时间：2016/8/15 11:28:00 -- 把第一个字母去掉，按数字比较大小，忽略字母的不同 |
| -- 作者：Hyphen -- 发布时间：2016/8/15 11:39:00 -- 参考，其它地方自己改改 DataTables("库存表").loadfilter = "SubString([门幅],2,len([门幅])-1) <= \'" & xyts.value & "\'" |