If e.DataRow.isnull(tb & "金额") Then e.DataRow(tb & "金额") = 0
改成
If e.DataRow.isnull(tb) Then e.DataRow(tb) = 0