主题：把A表的东西显示到B表中

没有返回符合条件的数据

设备分配表_查询1_Click

Dim Cols1() As String = {"使用设备","设备名称"}

Dim Cols2() As String = {"使用设备","设备名称"}

msgbox(DataTables("设备状态表").Select("[使用状态] = '待验收'").count)

For Each dr1 As DataRow In DataTables("设备状态表").Select("[使用状态] = '待验收'")

msgbox(1)

     Dim dr2 As DataRow = DataTables("设备分配表_设备运行").AddNew()

     For i As Integer = 0 To Cols1.Length -1

         dr2(Cols2(i)) = dr1(Cols1(i))

     Next

 Next