主题：怎么写这个代码

我测试没问题啊，在明细表增加行，输入值，实物表没有增加行啊。

请说明测试步骤。

你问的是【明细账】的录入问题啊。

在明细账录入数据，对应的，不会在【实物表】新增一行数据的啊。

新增一行空行？

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

本来就是那样啊。你在明细表无论怎么编辑都不会新增啊。

           只写这一句代码,而其他的代码依然同步增减相关表.

回复18楼。本来就是那样啊。你在明细表无论怎么编辑都不会新增啊。

请自行认真在明细表新增行、输入值测试啊。

有点甜老师：

       我的笔记本电脑坏了。 今天找人修的电脑，重新装的。但以前电脑上的所有数据都没有了。真不好意思，昨天您在QQ公众号给我编写的两个代码全没了。请您在QQ聊天记录里，把那段复制给我好吗？我重新作一下。