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

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

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

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

GetPy

将指定汉字转换为拼音格式。

语法

GetPY(Value,Initial)

Value：  要转换的拼音。
Initial: 可选参数，如果设为True，返回拼音缩写(由首字母组成)。

例如：

Output.Show(GetPY("中国"))

得到的结果为：zhong guo

Output.Show(GetPY("中国", True))

得到的结果为：zg

　

Select Case e.DataCol.Name
    Case  "已结帐" Then '如果是已结帐列的内容变动
        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
    Case  "姓名"
        e.DataRow("拼音缩写") = GetPy(e.DataRow("姓名"))
End Select