主题：清空值列内容的表达式没有反应

 

第一：在“结算表”的DataColChanged事件中的表达式没有反应，请教如何改？

 

If e.DataCol.Name = "完成" Then   '"完成"列  或“删除”列 或“退回”列有变动
    Dim dr As DataRow = e.DataRow
    If dr("完成") = False Then     '"完成"列或“删除”列 或“退回”列变为为否
        dr("客户") = Nothing     '那么"客户"栏清空
    ElseIf dr("完成")= True Then    '如果"完成"列或“删除”列 或“退回”列变为是
        dr("客户") =  ""     '那么清空此行"客户"列的内容
    End If
End If

 

第二：“登记表”和“结算表”已经建立了关联，子表“操作编号”是根据父表生成的，，在“结算表”的“校对”列单元格选择TRUE, 则“登记表”的同一操作编号的对应行锁定，表达式如何编写？如果不行，不改现状，还有什么方法能达成？

 

第三：如何保持菜单“日常工作”的“标记”保持常开显示。因为我将选择按下去后，关闭文件再打开时，修改显示的功能就关闭了，不能看到当时修改过的内容。

 

第四："完成"列，“删除”列，“退回”列，设计时是只能选择一个为TRUE的，如果重复选择了，需要提示“不能重复选择”，如何编写表达式？

 

以上实在解决不了，盼多多指点。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

1、看不明白

 

2、

设置结算表的DataColChanged事件：

 

If e.Datacol.Name = "校对" Then

    if e.DataRow("校对") = True Then

        Dim pr As Datarow = e.Datarow.GetParentRow("登记表")

        if pr IsNot Nothing Then

            pr.Locked = True

        End If
    End if

End if

 

3、不懂

 

4、帮助有现成的答案：

http://www.foxtable.com/help/topics/2395.htm

 

1、这里我这样表达吧，分两步说：

第一步：若："完成"列 列由True变动为False 此行"客户"列的内容有内容，清空
此行"客户"列的内容；在“结算表”的DataColChanged事件中的表达式没有反应，请教如何改？

 

If e.DataCol.Name = "完成" Then   ' 若 "完成"列有变动
    Dim dr As DataRow = e.DataRow
    If dr("完成") = False Then     ' 若"完成"列变为False

        dr("客户") = Nothing     ' 那么"客户"栏清空
    ElseIf dr("完成")= True Then    ' 若 "完成"列变为True

        dr("客户") =  ""     ' 那么清空此行"客户"列的内容
    End If
End If

 

第二步：若："完成"列  或“删除”列 或“退回”列由True变动为False 此行"客户"列的内容有内容，清空
此行"客户"列的内容；

表达式列不会触发datacolchanged事件

你的代码有问题，不管“完成”是True还是False,都会清空“客户”

谢谢，我再琢磨一下。