以下是引用飞过海洋在2018/1/18 11:00:00的发言：
老师，您就给我编一个明细账如果摘要显示的是上年结转，就让实物账不作任何更新，在实物账上生成数据行，不做变化，其他的代码不变。
新增一行空行？
Select Case e.DataCol.name
Case "明细账_领入起号","明细账_领入止号","明细账_领入张数","姓名","姓名","实物账_发出起号","实物账_发出止号","实物账_发出张数","明细账_今日领入张数","明细账_退piao张数","实物账_退piao张数","年","月","日","凭证_实物号","年","月","日","凭证_号","明细账_上年结转张数","实物账_上年结转张数","实物账部分_号","实物账部分_上年结转张数"
Dim dr As DataRow = DataTables("实物账").Find("id2 = '" & e.DataRow("_Identify") & "'")
If dr Is Nothing Then
dr = DataTables("实物账").AddNew()
dr("id2") = e.DataRow("_Identify")
End If
dr("引用部分") = e.DataRow("摘要_内容")
If e.DataRow("摘要_内容") > "" AndAlso e.DataRow("摘要_内容") <> "上年结转" Then
dr("实物账_发出起号") = e.DataRow("明细账_领入起号")
dr("姓名") = e.DataRow("姓名")
dr("年") = e.DataRow("年")
dr("月") = e.DataRow("月")
dr("日") = e.DataRow("日")
dr("实物账_今日发出张数") = e.DataRow("明细账_今日领入张数")
dr("实物账_退piao张数") = e.DataRow("明细账_退piao张数")
dr("凭证_号") = e.DataRow("实物账部分_号")
dr("引用部分") = e.DataRow("摘要_内容")
End If
End Select
加好友 
发短信
Post By：2018/1/17 18:06:00 [显示全部帖子]
