Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何保存控件中修改的数据


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

主题：如何保存控件中修改的数据
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 10:51:00 [显示全部帖子]

查询和编辑控件不要混用一个。一个控件要么作为查询用，要么作为录入用，不要共用。

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 11:05:00 [显示全部帖子]

就是共用的。查找按钮里DateTimePicker1作为查询条件用，保存按钮里DateTimePicker1又用来给日期列赋值。这种就叫做共用

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 11:40:00 [显示全部帖子]

2个按钮分别使用没有问题，放到同一个窗口，使用同一套输入控件肯定就有问题，最大的问题就是导致了“新添一行”

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 11:54:00 [显示全部帖子]

使用2套控件，一套专门用来做查询条件。另外一套用来编辑数据

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 14:06:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 17:15:00 [显示全部帖子]

ElseIf dr Is Nothing AndAlso dr.IsNull("实施日期") Then 

dr既然是Nothing ，也就是不存在这个行，再使用dr肯定出错，其实也没有必要在判断什么日期了，行都不存在了，还存在单元格数据吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 17:27:00 [显示全部帖子]

dr既然是Nothing ，也就是不存在这个行，是不存在，而不是表示这是一个空行。要取空行另外查询

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 17:36:00 [显示全部帖子]

认真理解13楼、15楼的说明

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


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 17:38:00 [显示全部帖子]

   ElseIf dr Is Nothing Then '如果不存在此行，且表上的日期列存在空行
        Dim dt As DataRow = DataTables("收费标准").Find("[实施日期] Is Null", "", 0)
if dr isnot nothing
        dt("实施日期") = CDate(d)
        dt("月租收费") = CDbl(e.Form.Controls("TextBox1").Value)
        dt.Save()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 22:09:00 [显示全部帖子]

调试看各种变量和条件是否符合预期

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