以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94448)

--  作者:yangwenghd
--  发布时间:2016/12/23 16:52:00
--  关联输入
怎么等第一行 状态列输入 学习中时候,下一列自动输入待学习啊 感谢 感谢 
--  作者:狐狸爸爸
--  发布时间:2016/12/23 16:58:00
--  
DataColChanged事件:

if e.DataCol.Name = "第一列" AndAlso e.NewValue = "学习中" then
   e.DataRow("第二列") = "待复习"
end if



--  作者:yangwenghd
--  发布时间:2016/12/23 17:13:00
--  
哦哦哦 不好意思 被我说错了 是下一行,不是下一列 不好意思 不好意思 
--  作者:狐狸爸爸
--  发布时间:2016/12/23 17:15:00
--  
AfterEdit事件:


if e.Col.Name = "第一列" AndAlso e.Row("第一列")= "学习中" then
   e.Table.Rows(e.Table.Position+1) ("第一列") = “待复习”
end if

--  作者:yangwenghd
--  发布时间:2016/12/23 17:27:00
--  
感谢 感谢 可以哦 只是为什么 最后一行的时候 输入后把 把列名都改变了啊  感谢 感谢 
--  作者:狐狸爸爸
--  发布时间:2016/12/23 17:29:00
--  
if e.Col.Name = "第一列" AndAlso e.Row("第一列")= "学习中" andalso e.Table.Position < e.Table.Rows.Count -1 then
   e.Table.Rows(e.Table.Position+1) ("第一列") = “待复习”
end if

--  作者:yangwenghd
--  发布时间:2016/12/23 17:46:00
--  
感谢 感谢 为什么我的有个表能用 而有个不能用啊 列名 写入的事件 代码 什么都一样 为什么有个能执行 有个就没什么反应呢 感谢 感谢 
--  作者:狐狸爸爸
--  发布时间:2016/12/23 17:48:00
--  

100%列名不对,不相信,你做个例子发上来。


--  作者:yangwenghd
--  发布时间:2016/12/23 18:01:00
--  
谢谢了 可以了  只是没明白 下面这段红色代码有什么关系 删除了就可以了
还有就是 为什么我用代码的方式输入就不能实现功能能

Tables("课文").current("状态") = "学习中" \'列内容变为0



With CurrentTable
    Dim r As Integer
    r = .FindRow("[状态] Like \'%待复习%\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With

Forms("课文窗口").Controls("Label17").Text = DataTables("课文").Compute("count(状态)","状态 = \'未学习\'")
[此贴子已经被作者于2016/12/23 18:10:06编辑过]

--  作者:有点蓝
--  发布时间:2016/12/23 20:49:00
--  
有没有关系要看上下前后的逻辑才知道了