- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 把A表的东西显示到B表中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172126)
-- 发布时间：2021/9/24 17:08:00
-- 把A表的东西显示到B表中
老师，我有两个表（一个A表，一个B表），我在窗口表中的B表点击按钮时，希望把A表中的设备编码、设备名称、使用状态：使用中的所有明细显示到B表中，请帮忙看看，谢谢
-- 发布时间：2021/9/24 17:10:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
-- 发布时间：2021/9/24 17:33:00
--
老师，我用的以下代码，但是不显示任何内容，也没有异常提示
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
-- 发布时间：2021/9/24 17:37:00
--
代码没有问题。检查是不是有其它代码影响了
-- 发布时间：2021/9/24 19:07:00
--
代码删除得就只剩附件了，依然不行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:eventcode.rar |
-- 发布时间：2021/9/25 8:50:00
--
没有返回符合条件的数据
设备分配表_查询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