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

可以这样添加行吗？在表B添加行，根据以下几个条件判断

1、表A的档案编号和表B的项目编号相同，表B的事件时间编号列（时间生成的整数）最后的行和状态列为已完成，在表B添加行，并复制表A的档案编号到表B的项目编号，如果状态列为学习中，则不添加行，选中学习中的行，

2、如果表A的档案编号没有找到与项目编号列相同的添加行

感谢感谢

比如点击按，先判断表B的项目编号有没与表A的档案编号相同的，如果没有就添加行，如果有再判断相同的行里面时间编号列的最后一行的表B的状态列是已完成还是学习中，如果是已完成也添加行并复制表A的档案编号到表B的项目编号，如果是学习中就不添加行，只是选中状态列为学习中的行，感谢感谢！！！！

[此贴子已经被作者于2017/11/26 13:32:14编辑过]

能在帮忙看看吗？看了很久也没看懂具体的意思，感谢，感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:行判断添加.table

If e.DataCol.Name = "项目编号" Then

Dim dr As DataRow

dr = DataTables("表A").Find("档案编号= '" & e.DataRow("项目编号") & "'" )

Tables("表B").AddNew() '新建行

Tables("表B").position = Tables("表B").Rows.Count-1 '跳到最后一行

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("项目编号")= dr("档案编号")

Dim ndb As DataRow = DataTables("表B").AddNew

ndb("时间编号") = Format(Date.Now, "yyyyMMddHHmmss") '变动日期编号

End If

End If '当表B的项目编号列未找到与表A的档案编号有相同时,新建行,选中新建行,将表A档案编号复制到项目编号,时间编号得到时间编号,

If e.DataCol.Name = "项目编号" Then

Dim dr As DataRow

dr = DataTables("表A").Find("档案编号= '" & e.DataRow("项目编号") & "' and 状态=学习中" )

Dim r As Row = e.Table.Current

If r IsNot Nothing Then

Tables("表B").Position = Tables("表A").FindRow("档案编号")

End If '窗口表与表格同步

End If

End If '当表B的项目编号列找到与表A的档案编号有相同时,同时表B的状态列有学习中,则选中改行,

If e.DataCol.Name = "项目编号" Then

Dim dr As DataRow

dr = DataTables("表A").Find("档案编号= '" & e.DataRow("项目编号") & "' and 状态=已学习" )

Tables("表B").AddNew() '新建行

Tables("表B").position = Tables("表B").Rows.Count-1 '跳到最后一行

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("项目编号")= dr("档案编号")

Dim nda As DataRow = DataTables("表B").AddNew

nda("时间编号") = Format(Date.Now, "yyyyMMddHHmmss") '变动日期编号

End If

End If '当表B的项目编号列找到与表A的档案编号有相同时,同时表B的状态列有都是已学习,新建行,选中新建行,将表A档案编号复制到项目编号,时间编号得到时间编号,

感谢感谢，一下复制了很多行，能再帮忙看看吗？感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:行判断添加.table

感谢了，谢谢，

其实就是判断表B要不要添加行，如果表B的项目编号没有与表A的档案编号相同的就添加行，复制表A的编号，如果有相同的就查看状态列是否有学习中，如果有就选中最前面的哪行，如果没有学习中，就同样新建行，把表A的编号复制到表B的项目编号里面，麻烦了，感谢感谢

此主题相关图片如下：360截图-27847406.jpg

[此贴子已经被作者于2017/12/1 0:45:40编辑过]

感谢感谢只是现在就是新建行后没有选中新建的行和当表B相同编号的列相同后，状态列如果有学习中，还是会新建行，可以选中这个学习中吗？感谢感谢

感谢感谢这段可以改为当表B有相同的，如果状态列有学习中就选中状态列有学习中的第一行吗？感谢感谢

Dim i = Tables("表B").FindRow(fdr)

感谢感谢，只是现在遇到重复的还是会选中已学习的行，可以是当重复的时候只有全部都是已学习才添加行，选中新添加的行，如果还有学习中，就选中学习中的行，辛苦了，感谢感谢

If Tables("财务汇总窗口_Table22").current("项目档案_状态") = "学习中" And "复习中"

这样写不对吗？感谢感谢

能帮忙看看这个吗？

为什么点击按钮没有什么反应呢？感谢感谢

If Tables("财务汇总窗口_Table22").current("项目档案_状态") = "待分析" AndAlso Tables("财务汇总窗口_Table22").current("项目档案_状态") = "否定"

If forms("建档分析选择窗口").Opened=False Then

forms("建档分析选择窗口").Open

End If

forms("建档分析选择窗口").visible=True

End If

Dim dr As Row = Tables("财务汇总窗口_Table22").current

Dim fdr = DataTables("财务数据").Find("关联编号 = '" & dr("关联编号") & "' and 分析结果_状态 = '分析中'","分析结果_时间编号")

If fdr Is Nothing Then

Dim i = Tables("财务数据").FindRow(fdr)

Else

If fdr Is Nothing Then

Dim i = Tables("财务数据")

End If '只是选中,不添加行

End If

如果没有找到该行就什么都不做，应该怎么改啊，感谢感谢，

主题：添加行判断