表属性事件DataColChanged中有两段不同用途的公式怎么设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你可以直接将两端代码复制进去即可。

如果要清晰一点，就这样:

Select Case e.DataCol.Name
    Case "已结帐" '如果是已结帐列的内容变动
        If e.NewValue = True Then '而且变动后的值是True(已勾选)
            e.DataRow.Locked = True '那么锁定此行
        End If
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
            e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
        Else
            '否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
        End If
End Select

[此贴子已经被作者于2009-3-27 16:37:30编辑过]

主题：表属性事件DataColChanged中有两段不同用途的公式怎么设置