试试这样
If dr.Isnull("窑炉计划_1条窑") OrElse dr.IsNull("库存_统计日期") Then dr("一条窑_四周内生产天数") = NothingElse dr("一条窑_四周内生产天数") = (dr("窑炉计划_1条窑") - dr("库存_统计日期")).TotalDaysEnd If