主题：重置列就死机

If e.DataCol.Name = "资产分类名称" Then  '当前表  当前列的名字固定了
    Dim fdr As DataRow = DataTables("资产分类代码表").Find("资产分类 = '" & e.DataRow("资产分类名称") & "'")
    If fdr IsNot Nothing Then  '如果当前行的某个值和数据源表的某个值相符合
        e.DataRow("资产分类代码") = fdr("四级代码")  '数据源的第一个赋值
        e.DataRow("卡片类型") = fdr("一级代码名称")  '数据源的第二个赋值
    Else
        e.DataRow("资产分类代码") = Nothing '数据源的第一个赋值
        e.DataRow("卡片类型") = Nothing  '数据源的第二个赋值
    End If
End If

  这样不会重复查找，find函数的效率比自己循环的效率要高。