主题：全局表事件DataRowAdding中代码为何不起作用？

Dim cmd As New SQLCommand

cmd.CommandText = "s elect 字段名,默认值 from abc where 表名 = '" & e.DataTable.Name & "' and isnull(默认值,'') <> '' "

cmd.C

Dim dt As DataTable = cmd.ExecuteReader

If dt.Compute("count(字段名)", "") > 0 Then

    For Each dr As DataRow In dt.DataRows

        e.DataRow(dr("字段名")) = dr("默认值") 

    Next 

End If