精简代码（自动复制多行） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "选择" Then
    Dim dr As DataRow = e.DataRow
    Dim cs() As String = {"轻度","严重"}
    If dr("选择") = True
        Dim dt As DataTable = DataTables("事件汇总")
        Dim ndr As DataRow
        For Each c As String In cs
            Dim n As Integer = dr(c)
            If n > 0 Then
                ndr = dt.AddNew(n)
                For Each dr1 As DataRow In dt.DataRows
                    If dr1.RowState = DataRowState.Added Then
                        dr1("译码日期") = dr("译码日期")
                        dr1("性质") = "轻度"
                        dr1.Save
                    End If
                Next
            End If
        Next
    End If
End If

主题：精简代码（自动复制多行）