Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请给我一段代码!


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

主题：[求助]请给我一段代码!
帅哥哟，离线，有人找我吗？
谢天钰
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00 		[求助]请给我一段代码!  发帖心情 Post By：2013/4/19 16:26:00 [只看该作者]

保存前判断多列是否有空值 没有空值才保存

我写的应该是逻辑关系不对
Dim lmc As String = "血压,心率"
Dim sz() As String
sz = lmc.Split(",")
For i As Integer = 0 To 1
    If Tables("高随访").Current.IsNull(sz(i)) Then
        MessageBox.Show("" & lmc.split(",")(i) & "不许为空","提示",MessageBoxButtons.OK)
        Tables("高随访").Current.Locked = False
    ElseIf Tables("高随访").Current(sz(i)) IsNot Nothing Then
        Tables("高随访").Current.Save()
        DataTables("用药情况").Save()
        Tables("高随访").Current.Locked = True
        Tables("用药情况").Current.Locked = True
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
jspta
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1732 积分：11272 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2013/4/19 16:30:00 [只看该作者]

Dim lmc As String = "血压,心率"
Dim sz() As String
sz = lmc.Split(",")
For i As Integer = 0 To 1
    If Tables("高随访").Current.IsNull(sz(i)) Then
        MessageBox.Show("" & lmc.split(",")(i) & "不许为空","提示",MessageBoxButtons.OK)
        Tables("高随访").Current.Locked = False
        return
     End If
Next
     Tables("高随访").Current.Save()
        DataTables("用药情况").Save()
        Tables("高随访").Current.Locked = True
        Tables("用药情况").Current.Locked = True

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/4/19 16:31:00 [只看该作者]

看上去没发现代码有错啊? 你用起来有什么问题?

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


加好友 发短信
等级：童狐 帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00 		  发帖心情 Post By：2013/4/19 16:40:00 [只看该作者]

到数组1的位置 
锁定了行
如果第一个数组为空的话 就不会锁定!
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/4/19 16:42:00 [只看该作者]

以下是引用谢天钰在2013-4-19 16:40:00的发言：
到数组1的位置 
锁定了行
如果第一个数组为空的话 就不会锁定!

参考2楼代码

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


加好友 发短信
等级：童狐 帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00 		  发帖心情 Post By：2013/4/19 16:43:00 [只看该作者]

2楼的也锁定了~!~!

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


加好友 发短信
等级：童狐 帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00 		  发帖心情 Post By：2013/4/19 16:44:00 [只看该作者]

不行啊,还是锁定行了!

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


加好友 发短信
等级：童狐 帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00 		  发帖心情 Post By：2013/4/19 16:44:00 [只看该作者]

我是想如果有空值就不执行下面保存以及锁定的代码!

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/4/19 16:58:00 [只看该作者]

Dim lmc As String = "血压,心率"
Dim sz() As String
sz = lmc.Split(",")
For i As Integer = 0 To 1
    If Tables("高随访").Current.IsNull(sz(i)) Then
        MessageBox.Show("" & lmc.split(",")(i) & "不许为空","提示",MessageBoxButtons.OK)
        Tables("高随访").Current.Locked = False
        Exit For
    ElseIf Tables("高随访").Current(sz(i)) IsNot Nothing Then
        Tables("高随访").Current.Save()
        DataTables("用药情况").Save()
        Tables("高随访").Current.Locked = True
        Tables("用药情况").Current.Locked = True
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
jijianjsj
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：268 积分：2227 威望：0 精华：0 注册：2013/2/4 11:02:00 		  发帖心情 Post By：2013/4/19 17:06:00 [只看该作者]

我觉得你可以分开写这段，在 Tables("高随访")  的BeforeSave事件中判断是否有空值，在按钮（保存）中写入最后要保存的表。

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