| 以文本方式查看主题 - 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=65717) |
| -- 作者：ess110 -- 发布时间：2015/3/21 9:13:00 -- 下拉窗体出错？ Dim Name As String = Tables("工资").Current("姓名") With Tables("下拉窗口_Table1") .Position = .FindRow("姓名 = \'" & Name & "\'", 0, False) End With --------------------------- 提示 --------------------------- 不存在名称为"下拉窗口_Table1"的Table！ --------------------------- 确定 --------------------------- |
| -- 作者：Bin -- 发布时间：2015/3/21 9:23:00 -- 说明你窗口名_表控件名没写对.检查一下 或者你表不是副本表 |
| -- 作者：ess110 -- 发布时间：2015/3/21 10:13:00 -- 是副本表 |
| -- 作者：Bin -- 发布时间：2015/3/21 10:15:00 -- 窗口名 控件名都检查清楚对应了? 上例子看看
|
| -- 作者：ess110 -- 发布时间：2015/3/21 22:23:00 -- 窗体table表是副本表是ture,在textbox模糊查找，？ Dim txt As String = e.Form.Controls("TextBox2").Text txt = txt.Replace("*","[*]").Replace("%","[%]") Dim tbl As Table = Tables("staff") If txt = "" Then tbl.Filter = "" Else txt = "\'*" & txt & "*\'" Dim st As String = "姓名 Like " & txt & " Or 职务 Like " & txt & " Or 部门 Like " & txt & " Or 手机 Like " & txt & " Or 编号 Like " & txt tbl.Filter = st End If |
| -- 作者：有点甜 -- 发布时间：2015/3/22 9:42:00 -- Dim tbl As Table = Tables("staff")
改成
Dim tbl As Table = e.Form.Controls("Table1").Table |