If Tables("A_rq").Current IsNot Nothing Then Dim dr As DataRow = DataTables("产量").AddNew
dr("日期") = Tables("A_rq").Current("日期")End If