- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]新手上路，列属性的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47452)
-- 发布时间：2014/3/10 17:15:00
-- [求助]新手上路，列属性的问题
怎么设置列属性，当我输入品名的时候不能出现不是我价格那个表的品名，如图，我这输入了一个cn6620也可以，我想让他只能输入价格里面的型号，如cn66201
此主题相关图片如下：001.jpg
[此贴子已经被作者于2014-3-10 17:16:16编辑过]
-- 发布时间：2014/3/10 17:17:00
--
允许直接输入-False
此主题相关图片如下：qq截图20140310171633.png
-- 发布时间：2014/3/10 17:22:00
--
如果设置不让直接输入的话，就不能输入东西了，因为型号很多，我想辅助的输入
-- 发布时间：2014/3/10 18:14:00
--
ValidateEdit
If e.Col.Name = "姓名" Then
Dim dr As DataRow = DataTables("表A").Find("姓名 = \'" & e.Text & "\'")
If dr Is Nothing Then
MessageBox.Show("请勿输入列表以外的姓名")
e.Cancel = True
End If
End If
-- 发布时间：2014/3/11 11:12:00
--
谢谢 lsy 在你的指导下终于会了怎么写代码，终于写下了第一个代码条，谢谢
-- 发布时间：2014/3/12 14:34:00
--
If e.Col.Name = "型号" Then
Dim dr As DataRow = DataTables("价格").Find("型号 = \'" & e.Text & "\'")
If dr Is Nothing Then
e.Cancel = True
End If
End If
我写的代码是这个。可是我想让他如果输的不对的时候全删掉的话鼠标能退出来，怎么改代码呢?
-- 发布时间：2014/3/12 14:36:00
--
If e.Col.Name = "型号" andalso e.text <> "" Then
Dim dr As DataRow = DataTables("价格").Find("型号 = \'" & e.Text & "\'")
If dr Is Nothing Then
e.Cancel = True
End If
End If