- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- TextChanged与Datalist的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2963)
-- 发布时间：2009/5/30 10:47:00
-- TextChanged与Datalist的问题
窗口关闭时出现的错误
此主题相关图片如下：00001.gif
确定后出现的页面
此主题相关图片如下：0002.gif
这是我的设计页面，有Datalist1控件的。
此主题相关图片如下：00003.gif
以上是TextChanged的代码：
with e.Form
if e.sender.text <> "请输入关键字" then
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[运单号码] Like \'*" & txb1.text & "*\' or [收件公司] Like \'*" & txb1.text & "*\'or [地址] Like \'*" & txb1.text & "*\'or [内件说明] Like \'*" & txb1.text & "*\'"
end if
end with
请问以上代码出错在什么地方？
-- 发布时间：2009/5/30 11:14:00
--
加个判断，如
If e.Form.Opened = False Then
Return
……
-- 发布时间：2009/5/30 11:14:00
--
RowFilter
设置显示条件表达式，使用此属性时，DataList必须已经绑定好。
另外
Dim
dst
As
WinForm.DataList = e.Form.Controls("DataList1")
[此贴子已经被作者于2009-5-30 11:15:55编辑过]
-- 发布时间：2009/5/30 11:54:00
--
以下是引用yangming在2009-5-30 11:14:00的发言：
RowFilter
设置显示条件表达式，使用此属性时，DataList必须已经绑定好。
另外
Dim
dst
As
WinForm.DataList = e.Form.Controls("DataList1")
[此贴子已经被作者于2009-5-30 11:15:55编辑过]
按楼上的朋友设置了，还是不行，出现同样的错误！
-- 发布时间：2009/5/30 12:35:00
--
按二楼的办法再试试
-- 发布时间：2009/5/30 13:04:00
--
以下是引用八婺在2009-5-30 11:14:00的发言：
加个判断，如
If e.Form.Opened = False Then
Return
……
加个判断，如
If e.Form.Opened = False Then
Return
……
请问这个代码怎么加，谢谢！
-- 发布时间：2009/5/30 13:45:00
--
加在第二行
-- 发布时间：2009/5/30 14:10:00
--
以下是引用yangming在2009-5-30 13:45:00的发言：
加在第二行
加在第二行
加在第二行，代码如下：
with e.Form
If e.Form.Opened = False Then
Return
if e.sender.text <> "请输入关键字" then
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[开票单号] Like \'*" & txb1.text & "*\' or [开票公司] Like \'*" & txb1.text & "*\'or [发票号码] Like \'*" & txb1.text & "*\'or [销货单位] Like \'*" & txb1.text & "*\'"
end if
end if
end with
错误是不会出货了，但是以上代码没有起任何作用！
-- 发布时间：2009/5/30 14:46:00
--
以下是引用woodiy在2009-5-30 14:10:00的发言：
加在第二行，代码如下：
with e.Form
If e.Form.Opened = False Then
Return
if e.sender.text <> "请输入关键字" then
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[开票单号] Like \'*" & txb1.text & "*\' or [开票公司] Like \'*" & txb1.text & "*\'or [发票号码] Like \'*" & txb1.text & "*\'or [销货单位] Like \'*" & txb1.text & "*\'"
end if
end if
end with
加在第二行，代码如下：
with e.Form
If e.Form.Opened = False Then
Return
if e.sender.text <> "请输入关键字" then
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[开票单号] Like \'*" & txb1.text & "*\' or [开票公司] Like \'*" & txb1.text & "*\'or [发票号码] Like \'*" & txb1.text & "*\'or [销货单位] Like \'*" & txb1.text & "*\'"
end if
end if
end with
错误是不会出货了，但是以上代码没有起任何作用！
我早就跟老六提过这个问题,就是这一句代码,应该是没有错误的,但出来的提示和你一模一样,应该是一个BUG,以前从来没有过这样的问题.老六答应看看的.
-- 发布时间：2009/5/30 15:12:00
--
经测试没有发现错误提示，楼主传文件看看。