- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 很有必要给控件加个"是否有绑定字段"的判断属性 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4083)
-- 发布时间：2009/8/27 12:03:00
-- 很有必要给控件加个"是否有绑定字段"的判断属性
直接看这个例子，就知道为什么有这样的要求了：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/8/27 12:12:00
--
论坛太火了，一会就沉下去了。为引起老六注意，我自己先顶一下
-- 发布时间：2009/8/27 12:18:00
--
bindingField属否大于""，就表示其是否邦定了字段
-- 发布时间：2009/8/27 12:19:00
--
以下是引用狐狸爸爸在2009-8-27 12:18:00的发言：
bindingField属否大于""，就表示其是否邦定了字段
bindingField属否大于""，就表示其是否邦定了字段
哈哈，好！先抄下来再试。
-- 发布时间：2009/8/27 12:31:00
--
对于可以绑定字段的控件，没问题了。
但是点到按钮上还是出错，可能因为它就没有这种方法。怎么排除按钮类呢？
-- 发布时间：2009/8/27 12:38:00
--
If e.Form.Controls("TextBox1").BindingField = "" Then
e.Form.Controls("TextBox1").BindingField = "表A.第一列"
End If
-- 发布时间：2009/8/27 12:38:00
--
以下是引用reachtone在2009-8-27 12:31:00的发言：
对于可以绑定字段的控件，没问题了。
但是点到按钮上还是出错，可能因为它就没有这种方法。怎么排除按钮类呢？
Messagebox.Show(e.form.Controls("ddgd").GetType.name)
-- 发布时间：2009/8/27 12:42:00
--
这样？
if e.Sender.BindCol is Nothing Then
MessageBox.Show("没有绑定列")
Else
MessageBox.Show("刚才的控件,绑定的字段是: " & e.Sender.BindCol.Name)
End If
-- 发布时间：2009/8/27 13:04:00
--
好
-- 发布时间：2009/8/27 13:31:00
--
谢谢，已经搞定。又多学了两招。。。