Dim dr As DataRow dim mc as String
dr = DataTables("订单").DataRows(1) mc = "数量"dr(mc) = 100 '设置该行数量列的值