我填好了身份证列表，准备利用标属性的事件编辑好了程序。可是保存后对应的列没有反应。本论坛下载的成表测试代码没问题。新手求解
Select Case e.DataCol.name
Case "入队时间"
If e.DataRow.IsNull("入队时间") Then
e.DataRow("工作年限_年") = Nothing
e.DataRow("工作年限_月") = Nothing
e.DataRow("工作年限_月") = Nothing
Else
Dim y,m,d As Integer
DateYMD(e.DataRow("入队时间"),Date.Today,y,m,d)
e.DataRow("工作年限_年") = y
e.DataRow("工作年限_月") = m
e.DataRow("工作年限_日") = d
End If
End Select
Select Case e.DataCol.name
Case "身份证号"
If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
Else
'否则从身份证号码列中提取出生日期
e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
End If
End If
End Select
加好友 
发短信
Post By：2018/3/2 23:46:00 [显示全部帖子]
