Dim cn = e.DataCol.Name
Dim dr = e.DataRow
If cn = "ClnBD" Then
Dim rs As String = dr!ClnBD
Dim bfh As String
'合格判断
Dim fhs() = {"月", ".", "/", "\", "-"}
Dim cs As Integer = 0
For Each fh As String In fhs
If rs.IndexOf(fh) > -1 Then
cs = cs + 1
End If
Next
If cs = 0 Or cs > 1 Then
bfh = "格式不符合"
Else
If rs.IndexOf("月") > -1 Then
If rs.Length - rs.Replace("月", "").Length > 1 Then
bfh = "格式不符合"
ElseIf rs.Length - rs.Replace("年", "").Length > 1 Then
bfh = "格式不符合"
End If
End If
End If
If bfh > "" Then
Else
' 五种情况计算
If rs.IndexOf("月＂) > -1 Then
If rs.IndexOf("年") > -1 Then
rs = rs.Split("年")(1)
End If
rs = rs.Split("月")(0)
dr!BDM = CInt(rs)
End If
End If
End If
【知道原因：If rs.IndexOf("月＂) > -1 Then 右侧括号及双引号是大写状态，故乱，改一下就正常了
】
[此贴子已经被作者于2022/4/30 1:34:46编辑过]
加好友 
发短信
F6
Post By：2022/4/30 1:33:00 [只看该作者]
