- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 获取不重复的值填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44817)
-- 发布时间：2014/1/9 15:28:00
-- 获取不重复的值填充
Dim Cols1() As String = {"试样编号"}
Dim Cols2() As String = {"试样编号"}
For Each dr1 As DataRow In DataTables("表A").Select("[部件图号] > 0")
Dim dr2 As DataRow = DataTables("表B").Find("试样编号 = \'" & dr1("试样编号") & "\'")
If dr2 Is Nothing Then
dr2 = DataTables("表B").AddNew()
End If
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
老师提示错误
-- 发布时间：2014/1/9 15:29:00
--
提示什么错误?
-- 发布时间：2014/1/9 15:32:00
--
我在窗口里的按键里做的，我不会截图......老师
-- 发布时间：2014/1/9 15:44:00
--
上例子.
-- 发布时间：2014/1/9 15:46:00
--
窗口2
-- 发布时间：2014/1/9 15:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/1/9 16:12:00
--
你的部件图号字符型，字符应该用单引号，代码改为：
Dim Cols1() As String = {"试样编号"}
Dim Cols2() As String = {"试样编号"}
For Each dr1 As DataRow In DataTables("表A").Select("[部件图号] > \'0\'")
Dim dr2 As DataRow = DataTables("表B").Find("试样编号 = \'" & dr1("试样编号") & "\'")
If dr2 Is Nothing Then
dr2 = DataTables("表B").AddNew()
End If
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
当然你也可以修改此列的数据类型为整数型，这样就不用改代码了。
参考：
http://www.foxtable.com/help/topics/0102.htm
http://www.foxtable.com/help/topics/1647.htm
-- 发布时间：2014/1/9 17:05:00
--
谢谢老师