主题：[分享]身份证性别拼音案例-边学边做

楼上的。如果我想把出生日期转换为农历日期，如何操作啊？？？

在表中加一列，农历日期，表属性里面的语句如何改啊？？不是太明白，刚学。

Select Case e.DataCol.Name
    Case "姓名"
        If e.DataRow.IsNull("姓名") Then 
            e.DataRow("拼音")= nothing
        else
            e.DataRow("拼音")= getpy(e.DataRow("姓名"))
        End If
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
            e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
            e.DataRow("中文日期")=nothing
            e.DataRow("性别") = Nothing
        Else
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("中文日期")=CUdate(e.DataRow("出生日期"))
            e.DataRow("性别")=ReadSex(e.DataRow("身份证号"))
        End If
End Select

 

 

 

收藏，谢谢。