- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76726)
-- 发布时间：2015/11/4 9:35:00
-- [求助]
如何判断不同的文本框内容，其次录入的数据如何和服务器里的匹配？
实现功能：
提交后，首先判断 * 号有无内容，没有返回提示，其次判断联系电话是否在数据库中存在，如果存在返回提示。
此主题相关图片如下：qq截图20151031172828.jpg
-- 发布时间：2015/11/4 9:51:00
--
1、直接判断如
If e.Form.Controls("TextBox1").Text = "" Then
msgbox("姓名不能为空")
return
End If
If e.Form.Controls("TextBox6").Text = "" Then
msgbox("客户意向不能为空")
return
End If
2、
If e.Form.Controls("TextBox3").Text > "" Then
Dim fdr As DataRow = DataTables("表A").Find("电话 = \'" & e.Form.Controls("TextBox3").Text & "\'")
If fdr IsNot Then
msgbox("找到了")
End If
End If
-- 发布时间：2015/11/4 9:54:00
--
谢谢红袍大哥了
-- 发布时间：2015/11/4 10:28:00
--
红包大哥，msgbox是messageBox.show()的缩写吗？
-- 发布时间：2015/11/4 10:59:00
--
是的。
-- 发布时间：2015/11/4 11:34:00
--
谢谢，红袍大哥。
另外还有个问题~
If e.Form.Controls("TextBox3").Text = "" Then
MessageBox.Show("请录入联系电话","提示")
Else
Dim fdr As DataRow = DataTables("客户数据表1").Find("联系电话 = \'" & e.Form.Controls("TextBox3").Text & "\'")
If fdr IsNot Nothing Then
MessageBox.Show("找到了")
End If
End If
判断数据是否存在是局限于表格，能否在数据库里进行数据的判断！
-- 发布时间：2015/11/4 11:40:00
--
If e.Form.Controls("TextBox3").Text = "" Then
MessageBox.Show("请录入联系电话","提示")
Else
Dim fdr As DataRow = DataTables("客户数据表1").SqlFind("联系电话 = \'" & e.Form.Controls("TextBox3").Text & "\'")
If fdr IsNot Nothing Then
MessageBox.Show("找到了")
End If
End If
-- 发布时间：2015/11/4 11:58:00
--
问题解决了，去品味代码了，谢谢
-- 发布时间：2015/11/6 11:59:00
--
If e.Form.Controls("DateTimePicker1").text = "" Or e.Form.Controls("TextBox2").text = "" Or e.Form.Controls("TextBox3").text = "" Or e.Form.Controls("DateTimePicker2").text = "" Or e.Form.Controls("TextBox6").text = "" Or e.Form.Controls("TextBox7").text = ""
MessageBox.Show("标记 (*) 处不能为空!请正确录入信息!","提示")
Else
Dim r As Row = Tables("违章处理").AddNew
r("处理时间") = e.Form.Controls("DateTimePicker1").text
r("车牌号") = e.Form.Controls("TextBox2").text
r("发动机号") = e.Form.Controls("TextBox3").text
r("审车时间") = e.Form.Controls("DateTimePicker2").text
r("完成时间") = e.Form.Controls("DateTimePicker3").text
r("处理情况") = e.Form.Controls("TextBox5").text
r("产生费用") = e.Form.Controls("TextBox6").text
r("违章情况") = e.Form.Controls("TextBox7").text
r("业务员") = User.Name
r("客户电话") = Tables("客户数据总表").Rows("联系电话")
e.Form.Close()
End If
红袍大哥，加粗代码想实现提交后“客户数据总表”的“联系电话”行（数据为点击的对应列数据）的数据移植到“违章处理”的“客户电话”里。你看看我这代码什么地方错误了？
-- 发布时间：2015/11/6 12:12:00
--
Dim fdr As DataRow = DataTables("客户数据表1").SqlFind("车牌号 = \'" & e.Form.Controls("TextBox2").Text & "\'")
If fdr IsNot Nothing Then
r("客户电话") = fdr("联系电话")
End If