- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- TABLE不显示数据，也就是没有加载数据！！！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=4295)
-- 发布时间：2009/9/10 11:33:00
-- TABLE不显示数据，也就是没有加载数据！！！
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理} where false 实现了打开“数据查询窗口”时，TABLE不显示数据，也就是没有加载数据！！！
但当我在姓名框内输入姓名时，这时如何加载数据！！！谢谢
[此贴子已经被smileboy于2009-9-10 20:37:10编辑过]
-- 发布时间：2009/9/10 11:34:00
--
我这个问题是一步一步问的！！！
-- 发布时间：2009/9/10 11:36:00
--
先实现加载－然后设置加载指定列－再实现加载列的列宽设置－最后实现再打开窗口时根据姓名框内是否有数据实现动态加载！！！谢谢
-- 发布时间：2009/9/10 11:36:00
--
Dim BB As String
BB = e.Form.Controls("输入查询姓名").Value
If BB = "" Then
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理} where false
End Select
ELSE
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理}
End Select
End if
-- 发布时间：2009/9/10 11:36:00
--
这样设置代码不对，版主帮帮忙，谢谢
-- 发布时间：2009/9/10 11:46:00
--
以下是引用雨中的泪在2009-9-10 11:36:00的发言：Dim BB As String
BB = e.Form.Controls("输入查询姓名").Value
If BB = "" Then
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理} where false
End Select
ELSE
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理}
End Select
End if
End Select？这个语法很“乌龙”的！除了这个，其余的代码看起来也很莫名其妙，还是提供你做的例子
[此贴子已经被作者于2009-9-10 11:46:16编辑过]
-- 发布时间：2009/9/10 11:57:00
--
关于你这个问题，我一致在看，也回答了一些问题，我想你还不如，做一个窗口，加一个table控件，加一个textbox控件，在textbox控件的值改变的事件中加入代码：
Dim Val As String = e.Form.Controls("textbox11").Value
DataTables("人事工资管理").LoadFilter = "[姓名] = \'"& Val &"\'or [身份证号码] = \'"& Val &"\'"
DataTables("人事工资管理").Load()
如果你输入一个人的名字，按回车会自动加载进来。如果输入身份证号码也会加载进来的，至于列不要全部加载的问题可以用表视图解决。
-- 发布时间：2009/9/10 11:58:00
--
你不会往 Textbox 控件中，用Select 吧？？？？？？？
-- 发布时间：2009/9/10 12:00:00
--
table控件绑定表，设为副本。
-- 发布时间：2009/9/10 12:35:00
--
Controls("输入查询姓名")控件中textchange事件中：
Dim BB As String
BB = Forms("数据查询窗口").Controls("输入查询姓名").text
If BB <> "" Then
Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")
End if
with e.Form
Dim dst As Table = Tables("人事工资管理")
Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")
Tables("数据查询窗口_Table1").Filter = "[姓名] Like \'*" & txb1.text & "*\'"
end with