http://www.foxtable.com/webhelp/topics/0625.htm
If e.DataCol.Name = "数据列" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("数据列") Then '身份证号码是否为空
e.DataRow("合同号") = Nothing '如果为空,则清除出生日期
e.DataRow("项目名称") = Nothing
e.DataRow("申请部门") = Nothing
Else
dim s as string = "合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所 "s = s.replace("合同号：","$").replace("项目名称：","$").replace("申请部门：","$")
dim ss() as string = s.split("$")
e.DataRow("合同号") =ss(1).trim
e.DataRow("项目名称") =ss(2).trim
……
End If
End If
加好友 
发短信
Post By：2025/4/11 11:53:00 [只看该作者]
