专家坐堂-[求助]复制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=189658)

--  作者：风声
--  发布时间：2023/12/14 20:21:00
--  [求助]复制

老师，下面代码勾选后只能复制三行，全部勾选也只能复制三行。

If e.DataCol.Name = "审核"
If e.DataRow("审核") = True Then
Dim dr1 As DataRow = DataTables("一号楼").find("项目ID=\'" & e.DataRow("项目ID") & "\'")
If dr1 Is Nothing Then
Dim nma() As String = {"项目","项目ID","抄表日期","时段","年","月份"} \'A表数据来源列
Dim nmb() As String = {"项目","项目ID","抄表日期","时段","年","月份"} \'原材料数据接收列
dr1 = DataTables("一号楼").AddNew
For i As Integer = 0 To nma.Length - 1
dr1(nmb(i)) = e.DataRow(nma(i))
Next
End If
Else
DataTables("一号楼").deletefor("项目ID=\'" & e.DataRow("项目ID") & "\'")
End If
End If

[此贴子已经被作者于2023/12/14 20:21:43编辑过]

--  作者：有点蓝
--  发布时间：2023/12/14 21:08:00
--
说明"一号楼"表已经有相同的项目ID数据存在

--  作者：风声
--  发布时间：2023/12/15 9:09:00
--

老师，我有了主键列后退勾不能删除数据。

If e.DataCol.Name = "审核"
If e.DataRow("审核") = True Then
Dim dr1 As DataRow = DataTables("一号楼").find("_Identify=\'" & e.DataRow("_Identify”） & "\'")
If dr1 Is Nothing Then
Dim nma() As String = {"_Identify”，"项目","项目ID","抄表日期","时段","年","月份"} \'A表数据来源列
Dim nmb() As String = {"_Identify”,"项目ID","抄表日期","时段","年","月份"} \'原材料数据接收列
dr1 = DataTables("一号楼").AddNew
For i As Integer = 0 To nma.Length - 1
dr1(nmb(i)) = e.DataRow(nma(i))
Next
End If
Else
DataTables("一号楼").deletefor("_Identify=\'" & e.DataRow("_Identify”) & "\'")
End If
End If

--  作者：有点蓝
--  发布时间：2023/12/15 9:13:00
--
上面代码是放在"一号楼"这个表事件里的？如果不是，不能使用"_Identify”做关联，每个表的"_Identify”数据都是独一无二，和其它表没有关系，不能用作数据关联

--  作者：风声
--  发布时间：2023/12/15 14:10:00
--
老师，下面代码用编号和id号当关联后退勾不能删除数据。

If e.DataCol.Name = "审核"
If e.DataRow("审核") = True Then
Dim dr1 As DataRow = DataTables("一号楼").find("ID=\'" & e.DataRow("编号”） & "\'")
If dr1 Is Nothing Then
Dim nma() As String = {"编号”,"项目ID","抄表日期","时段","年","月份"}
Dim nmb() As String = {"ID”,"项目ID","抄表日期","时段","年","月份"}
dr1 = DataTables("一号楼").AddNew
For i As Integer = 0 To nma.Length - 1
dr1(nmb(i)) = e.DataRow(nma(i))
Next
End If
Else
DataTables("一号楼").deletefor("ID=\'" & e.DataRow("编号”) & "\'")
End If
End If

[此贴子已经被作者于2023/12/15 14:11:01编辑过]

--  作者：有点蓝
--  发布时间：2023/12/15 14:23:00
--
代码没有问题，说明"一号楼"没有等于这个编号的id数据

msgbox("ID=\'" & e.DataRow("编号”) & "\'")

--  作者：风声
--  发布时间：2023/12/15 19:19:00
--
谢谢老师，在一个表里的列找不到一个没有重复的我想设置一列禁止重复的不知怎样搞。

--  作者：风声
--  发布时间：2023/12/16 9:14:00
--

老师好，下面代码打开项目总数给我重新复制一边，我只要外部数据表增加的数据导入数据汇总表。谢谢老师！

Dim cmd3 As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"项目","项目ID","抄表日期","年","月份"}
Dim dCols() As String = {"项目","项目ID","日期","年","月"}
cmd3.C
cmd3.CommandText = "SELEC T * From {一号楼}"
dt = cmd3.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim nr As DataRow = DataTables("数据汇总").AddNew()
For i As Integer =0 To sCols.Length -1
nr(dCols(i)) = dr(sCols(i))
Next
Next

--  作者：有点蓝
--  发布时间：2023/12/16 9:32:00
--
【我只要外部数据表增加的数据导入数据汇总表】 --- 怎么知道哪些数据是新增加的

--  作者：风声
--  发布时间：2023/12/16 9:37:00
--
老师，被导出的外部数据表和另我一个内部数据表是关联的