Dim fiter As DataRow = DataTables("库存查询").Find("[移动单元] = '" & st & "'")If fiter IsNot Nothing Then Tables("转移过账_筛选Table1").Filter = ("[移动单元] = '" & st & "'")Else Tables("转移过账_筛选Table1").Filter = "" MessageBox.show("选定区域不存在,请重新输入!")End If
加好友 
发短信
Post By：2015/12/28 16:49:00 [显示全部帖子]
