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

老师，我有两个表（一个A表，一个B表），我在窗口表中的B表点击按钮时，希望把A表中的设备编码、设备名称、使用状态：使用中的所有明细显示到B表中，请帮忙看看，谢谢

参考：http://www.foxtable.com/webhelp/topics/1533.htm

老师，我用的以下代码，但是不显示任何内容，也没有异常提示

 

Dim Cols1() As String = {"使用设备","设备名称"}
Dim Cols2() As String = {"使用设备","设备名称"}
For Each dr1 As DataRow In DataTables("设备状态表").Select("[使用状态] <> '停止使用'")
     Dim dr2 As DataRow = DataTables("设备分配表_设备运行").AddNew()
     For i As Integer = 0 To Cols1.Length -1
         dr2(Cols2(i)) = dr1(Cols1(i))
     Next
 Next

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

代码没有问题。检查是不是有其它代码影响了

代码删除得就只剩附件了，依然不行

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eventcode.rar

没有返回符合条件的数据

设备分配表_查询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