Foxtable(狐表)用户栏目专家坐堂 → 关于数据引用的问题


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

主题:关于数据引用的问题

帅哥哟,离线,有人找我吗?
sgkyzfh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:840 威望:0 精华:0 注册:2017/5/27 20:17:00
关于数据引用的问题  发帖心情 Post By:2018/2/23 20:32:00 [只看该作者]

老师,问题在附件的备注字段里。谢谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/23 20:45:00 [只看该作者]

Datacolchanged事件

Select Case e.DataCol.Name
    Case  "当日表底"
        If e.DataRow.IsNull("上次表底留查") Then
            e.DataRow("上次表底留查")= e.DataRow("当日表底")
        Else
            Dim v As Integer = e.DataRow("当日表底") - e.DataRow("上次表底留查")
            If v < 0 OrElse v > 24 Then
                e.DataRow("录入状态") = "错误"
            Else
                e.DataRow("录入状态") = "正常"
            End If
            e.DataRow("上次表底留查")= e.DataRow("当日表底")
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
sgkyzfh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:840 威望:0 精华:0 注册:2017/5/27 20:17:00
  发帖心情 Post By:2018/2/23 21:01:00 [只看该作者]

老师,还有点问题,我是想让光标离开”当日表底“单元格,录入下一个记录的时候,刚刚录入过的这个单元格的数据要自动为空。有办法吗

 回到顶部
帅哥哟,离线,有人找我吗?
sgkyzfh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:840 威望:0 精华:0 注册:2017/5/27 20:17:00
  发帖心情 Post By:2018/2/23 21:03:00 [只看该作者]

是我没有讲明白

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/23 21:27:00 [只看该作者]

AfterSelChange

If e.Table.Cols(e.OldRange.ColSel).Name = "当日表底" AndAlso (e.OldRange.RowSel <> e.NewRange.RowSel OrElse e.OldRange.ColSel <> e.NewRange.ColSel )
    Dim r  As  Row = e.Table.Rows(e.OldRange.Rowsel)
    systemready = False
    r(e.OldRange.ColSel) = Nothing
    systemready = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
sgkyzfh
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:840 威望:0 精华:0 注册:2017/5/27 20:17:00
  发帖心情 Post By:2018/2/23 22:29:00 [只看该作者]

老师:测试达不到效果,录入后显示错误,而且在”上次表底留查“字段里显示为0.而不当日的表底。您在给看看。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/23 22:50:00 [只看该作者]

我测试没有问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
sgkyzfh
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:840 威望:0 精华:0 注册:2017/5/27 20:17:00
  发帖心情 Post By:2018/2/23 23:18:00 [只看该作者]

老师好棒,爱你。

 回到顶部