Select Case e.DataCol.name
Case "文件名称","发文单位","文件","发文单位","发文日期","文号","备注","LOG","下发","接收日期","学习时间","学习地点","贯彻人"
Dim fdr As DataRow
If e.DataRow("下发") = True Then
fdr = DataTables("贯彻学习").find("第十列='" & e.DataRow("_Identify") & "'")
If fdr Is Nothing Then fdr = DataTables("贯彻学习").addnew
End If
End If
If fdr IsNot Nothing Then
'fdr("文件类型") = e.DataRow("文件类型")
fdr("文件名称") = e.DataRow("文件名称")
fdr("发文单位") = e.DataRow("发文单位")
fdr("发文日期") = e.DataRow("发文日期")
fdr("接收日期") = e.DataRow("接收日期")
fdr("学习时间") = e.DataRow("学习时间")
fdr("学习地点") = e.DataRow("学习地点")
fdr("贯彻人") = e.DataRow("贯彻人")
'fdr("项目分类") = e.DataRow("项目分类")
fdr("文号") = e.DataRow("文号")
fdr("文件") = e.DataRow("文件")
fdr("备注") = e.DataRow("备注")
fdr("LOG") = e.DataRow("LOG")
e.DataRow.save
fdr("第十列") = e.DataRow("_Identify")
End If
End Select
加好友 
发短信
Post By：2022/8/3 8:23:00 [显示全部帖子]
