- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 根据帮助里面，做一个查询然后标记运行不了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186903)
-- 发布时间：2023/6/7 16:05:00
-- 根据帮助里面，做一个查询然后标记运行不了
Dim lst1 As New
List(of
DataRow)
Dim lst2 AS New
List(of
DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
If
DataTables("表A").Find("第二列 = "
&
dr("第一列")) Is Nothing Then
lst1.Add(dr)
Else
lst2.Add(dr)
End If
Next
For Each dr As DataRow In lst1
dr("第三列") = True
Next
For Each dr As DataRow In lst2
dr("第三列") = False
Next
我准备一个表里做一个查询，第一列是序号，查询第三列的数据如果在第二列里有就在第四列里把第二例这一行的序号填进去。
我在form框里做了一个按钮执行这一段帮助里的软件，执行出错。是哪里出了问题吗？
-- 发布时间：2023/6/7 16:09:00
--
没看懂。请截图表格数据说明一下
-- 发布时间：2023/6/7 16:14:00
-- 根据帮助里面，做一个查询然后标记运行不了
就是查询第三列的数据，如果在第二列栏里面有，那就在第四列把序号填上,要是没有就不填内容
-- 发布时间：2023/6/7 16:21:00
--
没有理解帮助的意思，参考的示例错了
Dim dict As New Dictionary(Of DataRow, String)
Dim pr As DataRow
For Each dr As DataRow In DataTables("表A").DataRows
pr = DataTables("表A").Find("第二列 = \'" & dr("第三列") & "\'")
If pr IsNot Nothing Then
dict.Add(dr, pr("第一列"))
End If
Next
For Each dr As DataRow In dict.Keys
dr("第四列") = dict(dr)
Next
[此贴子已经被作者于2023/6/7 16:49:56编辑过]
-- 发布时间：2023/6/7 16:41:00
-- 还有点点问题
1
1
2
1
2
2
4
2
3
3
4
4
5
5
第四列数据应该是2和4，现在是1和2了
-- 发布时间：2023/6/7 16:50:00
--
dict.Add(dr, pr("第一列"))
-- 发布时间：2023/6/7 16:52:00
--
您看，我希望第四列的数字是2，4，5，现在是，1,2,3
-- 发布时间：2023/6/7 16:53:00
--
看6楼
-- 发布时间：2023/6/7 16:58:00
--
谢谢版主，可以了。