| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 数据表更新 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55629) |
| -- 作者：爱相随 -- 发布时间：2014/8/20 12:01:00 -- 数据表更新 老师，目录树列表项目怎么自动更新呢？我增加了新档案，但通过目录数列表引用的表却没法使用，请老师帮个忙吧 |
| -- 作者：有点甜 -- 发布时间：2014/8/20 12:12:00 -- 是说数据表更新，但目录树没有更新？
http://www.foxtable.com/help/topics/2031.htm
|
| -- 作者：爱相随 -- 发布时间：2014/8/20 12:17:00 -- 就是我在A表增加了档案，到B表却找不到，只有再到数据表的列属性点击后数据表那里后数据才更新 |
| -- 作者：有点甜 -- 发布时间：2014/8/20 14:08:00 -- 看2楼帮助文档，用代码重新生成目录树。 |
| -- 作者：爱相随 -- 发布时间：2014/8/20 16:58:00 -- 请老师帮助看哈第二段代码为何不执行呢？？？ If User.IsRole("录入人") Then For Each r As Row In Tables("ZJJHB").GetCheckedRows If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.") Else r("SBR") = User.Name r.Save() End If Next ElseIf User.IsRole("录入人") Then For Each r As Row In Tables("ZJSQB").GetCheckedRows If r.IsNull("KSMC") OrElse r.IsNull("实际申请金额") Then MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.") Else r("SJSB") = User.Name r.Save() End If Next Else MessageBox.show("你没有权限!") End If
|
| -- 作者：逛逛 -- 发布时间：2014/8/20 17:00:00 -- 以下是引用爱相随在2014-8-20 16:58:00的发言：
请老师帮助看哈第二段代码为何不执行呢？？？
If User.IsRole("录入人") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SBR") = User.Name
r.Save()
End If
Next
ElseIf User.IsRole("录入人") Then
For Each r As Row In Tables("ZJSQB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("实际申请金额") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SJSB") = User.Name
r.Save()
End If
Next
Else
MessageBox.show("你没有权限!")
End If 同一个条件，做两次判断？ |
| -- 作者：爱相随 -- 发布时间：2014/8/20 17:05:00 -- 在不同的表啊 |
| -- 作者：有点甜 -- 发布时间：2014/8/20 17:20:00 -- If User.IsRole("录入人") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SBR") = User.Name
r.Save()
End If
Next
For Each r As Row In Tables("ZJSQB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("实际申请金额") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SJSB") = User.Name
r.Save()
End If
Next
Else
MessageBox.show("你没有权限!")
End If
|