Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有2598人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
longkan88
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		[求助]  发帖心情 Post By：2015/11/4 9:35:00 [显示全部帖子]

如何判断不同的文本框内容，其次录入的数据如何和服务器里的匹配？
实现功能：
提交后，首先判断 * 号有无内容，没有返回提示，其次判断联系电话是否在数据库中存在，如果存在返回提示。

此主题相关图片如下：qq截图20151031172828.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/4 9:54:00 [显示全部帖子]

谢谢红袍大哥了图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/4 10:28:00 [显示全部帖子]

红包大哥，msgbox是messageBox.show()的缩写吗？

 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：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
判断数据是否存在是局限于表格，能否在数据库里进行数据的判断！
 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/4 11:58:00 [显示全部帖子]

问题解决了，去品味代码了，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：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

红袍大哥，加粗代码想实现提交后“客户数据总表”的“联系电话”行（数据为点击的对应列数据）的数据移植到“违章处理”的“客户电话”里。你看看我这代码什么地方错误了？
 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/6 14:23: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("客户数据总表").Text(Tables("客户数据总表").RowSel - 8,Tables("客户数据总表").ColSel)
    e.Form.Close()
End If
理论上是没有问题的，不过运行时提示（索引超出范围。必须为非负值并小于集合大小。参数名: index）请问错误在什么地方呢？
 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/6 14:28:00 [显示全部帖子]

解决了，红袍大哥图片点击可在新窗口打开查看是我把行列的数据搞错了，，，，图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06152 秒, 5 次数据查询