自动带入其他表格数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:物业收费台账及明细.table

版主您好！我想设置户主信息登记表只有开发者和管理员可以编辑其他用户不能编辑，可是只有开发者可以编辑，管理员不能编辑，是哪里出了问题

Select Case User.Name

Case <> "开发者","管理员"
e.Cancel = True
End Select

Select Case User.Name

Case <> "开发者" andalso Case <> "管理员"

e.Cancel = True

End Select

Select Case User.Name
    Case "开发者","管理员"
        e.Cancel = False
    Case Else
        e.Cancel = True
End Select

版主您好！我把代码写入到表_PrepareEdit_事件中有效，写入到项目全局表_PrepareEdit_事件中却无效？应该怎么办？

版主您好！虽然对表无法编辑和删除了，但是可以删除行增加行，怎么能控制只能看其他操作都无法做呢。如果用锁定表怎么控制其他用户不能解锁表呢？

以下是引用xlrboy在2019/1/11 15:50:00的发言：
版主您好！我把代码写入到表_PrepareEdit_事件中有效，写入到项目全局表_PrepareEdit_事件中却无效？应该怎么办？

开启全局表事件

http://www.foxtable.com/webhelp/scr/0671.htm

以下是引用xlrboy在2019/1/11 16:02:00的发言：
版主您好！虽然对表无法编辑和删除了，但是可以删除行增加行，怎么能控制只能看其他操作都无法做呢。如果用锁定表怎么控制其他用户不能解锁表呢？

控制allowEdit和allowAddNew 等属性

http://www.foxtable.com/webhelp/scr/1667.htm

代码写到afterOpenProject或者loadUserSetting事件

版主您好！收缴情况一览表姓名、实际面积、物业费月缴额、能耗费费率、能耗费月缴额等列都是通过房号列在户主信息登记表内引过来的，每次打开的时候都是空白必须重置一下房号列才能引用过来，是代码那里出问题了？

If e.DataCol.Name = "房号" Then

Dim nms() As String = {"姓名","实际面积","物业费月缴额","能耗费费率","能耗费月缴额"}

If e.NewValue Is Nothing Then

For Each nm As String In nms

e.DataRow(nm) = Nothing

Else

Dim dr As DataRow

dr = DataTables("户主信息登记表").Find("[房号] = '" & e.NewValue & "'")

If dr IsNot Nothing

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

End If

If e.DataCol.name= "房号" Then

Dim fdr1 = DataTables("能耗费台账").Find("[房号] = '" & e.DataRow("房号") & "'")

Dim fdr2 = DataTables("物业费台账").Find("[房号] = '" & e.DataRow("房号") & "'")

If fdr1 IsNot Nothing AndAlso fdr2 IsNot Nothing Then

For Each c As DataCol In e.DataTable.DataCols

If c.name.EndsWith("月")Then

If fdr1(c.name)<>Nothing AndAlso fdr2(c.name)<>Nothing Then

e.DataRow(c.name) = True

Else

e.DataRow(c.name) = False

End If

Else

For Each c As DataCol In e.DataTable.DataCols

If c.name.EndsWith("月")Then

e.DataRow(c.name) = False

End If

1、这些列不能是表达式列

2、赋值后保存一下

If dr IsNot Nothing

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

e.DataRow.save

End If

版主您好！以上列都是双精度小数，按您的代码加入了保存，还是没有用。重新加载后还是空的。

此主题相关图片如下：001.jpg

主题：自动带入其他表格数据