- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]DropDownForm 出错问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72974)
-- 发布时间：2015/8/10 10:09:00
-- [求助]DropDownForm 出错问题
看截图
此主题相关图片如下：qq图片20150810100743.png
此主题相关图片如下：qq图片20150810100754.png
KeyPress的代码：
Dim drp As WinForm.DropDownBox = e.Sender
If drp.DroppedDown = False \'如果下拉窗口没有打开
drp.OpenDropDown() \'打开下拉窗口
End If
If drp.DroppedDown = False \'如果下拉窗口没有打开
drp.OpenDropDown() \'打开下拉窗口
End If
TextChanged
代码：Dim drp As WinForm.DropDownBox = e.sender
Dim tbb As Table = Tables("MAIN_Table1")
If drp.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("YBDP_Table1")
If drp.Text = "" Then \'如果内容为空
tbl.DataTable.LoadFilter = "_IDENTIFY IS NULL"
TBL.DataTable.Load(False)
ElseIf tbb.Current.IsNull("类别") Then
tbl.DataTable.LoadFilter = "_IDENTIFY IS NULL"
TBL.DataTable.Load(False)
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & drp.Text & "%\'"
tbl.DataTable.LoadFilter = "YB_LEIBIE = \'" & tbb.Current("类别") & "\' and YB_SKU like " & txt & " Or YB_J Like " & txt & " OR YB_NAME LIKE " & TXT
TBL.DataTable.LoadTop = 11
TBL.DataTable.Load(False)
End If
End If
Dim tbb As Table = Tables("MAIN_Table1")
If drp.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("YBDP_Table1")
If drp.Text = "" Then \'如果内容为空
tbl.DataTable.LoadFilter = "_IDENTIFY IS NULL"
TBL.DataTable.Load(False)
ElseIf tbb.Current.IsNull("类别") Then
tbl.DataTable.LoadFilter = "_IDENTIFY IS NULL"
TBL.DataTable.Load(False)
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & drp.Text & "%\'"
tbl.DataTable.LoadFilter = "YB_LEIBIE = \'" & tbb.Current("类别") & "\' and YB_SKU like " & txt & " Or YB_J Like " & txt & " OR YB_NAME LIKE " & TXT
TBL.DataTable.LoadTop = 11
TBL.DataTable.Load(False)
End If
End If
[此贴子已经被作者于2015/8/10 14:05:37编辑过]
-- 发布时间：2015/8/10 10:11:00
--
没有截图
-- 发布时间：2015/8/10 10:11:00
--
上传不了图片啊
-- 发布时间：2015/8/10 10:28:00
--
用IE浏览器上传图片。
-- 发布时间：2015/8/10 14:03:00
--
上传成功
-- 发布时间：2015/8/10 14:50:00
--
DropDownForm 的 DropDownOpened 或 DropDownOpeniing 或 AfterLoad
是否有写代码，写了什么代码？
最好把项目发上来。
-- 发布时间：2015/8/10 14:58:00
--
DropDownOpened ：
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框DropDownOpeniing ：
无
AfterLoad：
Tables("YBDP_TABLE1").DataTable.LoadFilter = "_Identify is null"
Tables("YBDP_TABLE1").DataTable.Load(False)
DataTables("YBDP_TABLE1").SysStyles("EmptyArea").BackColor = Color.AliceBlue
-- 发布时间：2015/8/10 15:02:00
--
试试给 YBDP 窗口的 TABLE1 这个控件改一个名字，如 table2
-- 发布时间：2015/8/12 9:56:00
--
不管换成什么名字都是一样的问题
-- 发布时间：2015/8/12 10:05:00
--
把做个例子发上来吧。你给的代码看不出哪里有问题。