专家坐堂-所有表的制定列所有行植入数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  所有表的制定列所有行植入数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189814)

--  作者：yifan3429
--  发布时间：2023/12/27 22:34:00
--  所有表的制定列所有行植入数据

Dim s1 As String = "|开发者|管理员|测试员"

Dim s As String
For Each dt As DataTable In DataTables
If dt.DataCols.Contains(s1) Then
For Each dr As DataRow In dt.DataRows
If s.Contains(s1) = True Then
Else
dr("用户") = dr("用户") & s1
End If\'
Next
End If
Next

检查所有表，如果包含用户列检查是否包含 s1 如果没有全部植入

--  作者：有点蓝
--  发布时间：2023/12/28 8:48:00
--

是"|开发者|管理员|测试员"这3个都没有才添加，还是说只要判断其中一个没有就添加

--  作者：yifan3429
--  发布时间：2023/12/28 8:56:00
--
任意一个没有就添加

--  作者：有点蓝
--  发布时间：2023/12/28 9:24:00
--

For Each dt As DataTable In DataTables
If dt.DataCols.Contains("用户") Then
For Each dr As DataRow In dt.DataRows
If dr("用户").Contains("开发者") = false Then
  dr("用户") = dr("用户") & "|开发者"
End If\'
If dr("用户").Contains("管理员") = false Then
  dr("用户") = dr("用户") & "|管理员"
End If\'
If dr("用户").Contains("测试员") = false Then
  dr("用户") = dr("用户") & "|测试员"
End If\'
Next
End If
Next