导入时给数值项自动赋值,公式如何修改?
Dim dt As DataTable = DataTables("打印")Dim pdr As DataRowdt.DataRows.ClearFor Each dr As Row In Tables("student").Rows pdr = dt.AddNew pdr("学号") = dr("xhdm")Next