以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表属性事件DataColChanged中有两段不同用途的公式怎么设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2218)
--  作者：byzy3260
--  发布时间：2009/3/27 15:05:00
--  表属性事件DataColChanged中有两段不同用途的公式怎么设置
表属性事件DataColChanged中有两段不同用途的公式设置，请教，他们之间该如何表达才能同时起作用？
--  作者：狐狸爸爸
--  发布时间：2009/3/27 15:10:00
--  
你可以直接将两端代码复制进去即可。

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

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编辑过]
--  作者：byzy3260
--  发布时间：2009/3/27 15:31:00
--  

谢谢指点，一试就灵！
--  作者：byzy3260
--  发布时间：2009/3/27 15:33:00
--  
再请教一个问题，姓名列如何返回汉字拼音？
--  作者：狐狸爸爸
--  发布时间：2009/3/27 15:46:00
--  

GetPy

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

语法

GetPY(Value,Initial)

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

例如：

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

得到的结果为：zhong guo

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

得到的结果为：zg

　
--  作者：byzy3260
--  发布时间：2009/3/27 16:11:00
--  
不好意思， 

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

得到的结果为：zg

　粘贴到什么地方？
--  作者：狐狸爸爸
--  发布时间：2009/3/27 16:15:00
--  
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