- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ComboBox 控制 求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32020)
-- 发布时间：2013/4/24 13:51:00
-- ComboBox 控制 求助
选了 ComboBox1 后, 想更改 Table1.Filter, 但出错.
用那个 Event ( TextChanged 或 ValueChanged )都出错
Dim cb As WinForm.ComboBox
messagebox.show(2)
cb = e.Form.Controls("ComboBox1")
messagebox.show(3)
Dim cbtext As String = cb.text
If cbText = "欠料" Then
Tables("备料单分配_备料单分配Table1").Filter = "[POSTED] = TRUE AND [FINISHED] = FALSE and [Tran_date] < #" & Date.Today & "#"
ElseIf cbtext = "1天以内" Then
Tables("备料单分配_备料单分配Table1").Filter = "[Tran_date] <= \'"&Date.Today.AddDays(1)&"\' And [finished] = False"
ElseIf cbtext = "2天以内" Then
Tables("备料单分配_备料单分配Table1").Filter = "[Tran_date] <= \'"&Date.Today.AddDays(2)&"\' And [finished] = False"
ElseIf cbtext = "3天以内" Then
Tables("备料单分配_备料单分配Table1").Filter = "[Tran_date] <= \'"&Date.Today.AddDays(3)&"\' And [finished] = False"
ElseIf cbtext = "3天以上" Then
Tables("备料单分配_备料单分配Table1").Filter = "[Tran_date] > \'"&Date.Today.AddDays(3)&"\' And [finished] = False"
End If
此主题相关图片如下：qq截图20130424134003.jpg
-- 发布时间：2013/4/24 14:04:00
--
名字写错了吧
-- 发布时间：2013/4/24 15:53:00
--
没有啊 !
-- 发布时间：2013/4/24 15:59:00
--
肯定控件名称出错了。楼主再仔细看看。。
-- 发布时间：2013/4/24 16:04:00
--
没错啊
此主题相关图片如下：qq截图20130424160220.jpg
-- 发布时间：2013/4/24 19:36:00
--
如改为模式执行 是OK, 用独立模式 就不行 !