- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于数据引用的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114848)
-- 发布时间：2018/2/23 20:32:00
-- 关于数据引用的问题
老师，问题在附件的备注字段里。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：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
-- 发布时间：2018/2/23 21:01:00
--
老师，还有点问题，我是想让光标离开”当日表底“单元格，录入下一个记录的时候，刚刚录入过的这个单元格的数据要自动为空。有办法吗
-- 发布时间：2018/2/23 21:03:00
--
是我没有讲明白
-- 发布时间：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
-- 发布时间：2018/2/23 22:29:00
--
老师：测试达不到效果，录入后显示错误，而且在”上次表底留查“字段里显示为0.而不当日的表底。您在给看看。
-- 发布时间：2018/2/23 22:50:00
--
我测试没有问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2018/2/23 23:18:00
--
老师好棒，爱你。