以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数值的筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27639)

--  作者:mamuaiqing
--  发布时间:2013/1/6 19:23:00
--  数值的筛选

项目中有张"背面规格"表,当中有长度列,背面规格列,在窗口的"组合框"控件的Enter事件中输入下面的代码,以完成"TextBox9"控件输入长度值后从"背面规格"表中筛选出对应的规格做为"组合框"控件的列表项目,我想再加个取值为长度的+1跟-1的话代码该怎么写?比如"TextBox9"中输入23, 23的+1跟-1的话就是22跟24,筛选出"背面规格"表中22-24不重复的"背面规格"值,请教老师

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("TextBox9").Value
cmb.ComboList = DataTables("背面规格").GetComboListString("背面规格", "长度 = \'" & str & "\'")


--  作者:狐狸爸爸
--  发布时间:2013/1/7 9:35:00
--  

Dim cmb As WinForm.ComboBox = e.Sender
Dim v As Integer = e.Form.Controls("TextBox9").Value

cmb.ComboList = DataTables("背面规格").GetComboListString("背面规格", "长度 >= \'" & v-1 & "\' And 长度 <= \'" & v+1 &"\'")

 

顺便问一下,为啥你的长度不是数值型,而是字符型,长度应该是数值才对啊。


--  作者:mamuaiqing
--  发布时间:2013/1/7 18:40:00
--  
图片点击可在新窗口打开查看光顾着研究忘记细节了,感谢老爹的指导跟提醒