只保存当前表中客户列不为空的行，应该怎么改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

只保存当前表中客户列不为空的行，应该怎么改？

尝试着写，是这样的，不知道对不对？应该怎么改？

For Each dr As DataRow In DataTables("入库表").Select("客户 is not null")

dr.save

测试后，新增多行，其中部分行客户列有内容，部分列没有，结果按下保存按钮，新增行的左侧序号出现红色的感叹号

提示的错误对话框是：

.NET Framework 版本：4.0.30319.1026

Foxtable 版本：2020.1.12.18

错误所在事件：

详细错误信息：

Failed to enable constraints. One or more rows contain values violating non-null, unique, or foreign-key constraints.

此主题相关图片如下：00002.png

此主题相关图片如下：00001.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:cs0000.foxdb

新增多行空行，其中部分填写“客户”列内容，

部分空行则不填写“客户”列内容，

而是直接在“入库日期”列录入日期，

然后点击下方的“保存”按钮，就能看到以上的错误提示？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:5555555555555.rar

？已反馈？什么意思？您说的我之前忘了上传数据库，我后来上传了，那么现在应该怎么处理？

要是这条路不好走，那我用新的办法，您帮我看看，这段代码上下部分有没有问题？

是不是可以合并？怎么合并？

If e.Row("编辑者") = User.Name Then '如果编辑者是当前用户

Return

End If

Dim cmd2 As New SQLCommand

Dim exp2 As String = "编辑者 Is Null And [_Identify] = " & e.Row("_Identify")

cmd2.Connectio nNam e = "仓管系统"

cmd2.CommandText = "U pdate {入库表} Set 编辑者 = '" & User.Name & "' Where " & exp2

If cmd2.ExecuteNonQuery = 1 Then

e.Row("编辑者") = User.Name

Else

cmd2.CommandText = "Select 编辑者 F rom {入库表} Where [_Identify] = " & e.Row("_Identify")

Dim nm2 As String = cmd2.ExecuteScalar

If nm2 > "" Then

MessageBox.show(nm2 & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

e.Cancel = True '取消编辑

End If

Dim cmd As New SQLCommand

cmd.Connectio nNam e = "仓管系统"

Dim id As Integer = e.Row("_Identify")

cmd.CommandText = "Select 用户名 F rom {入库表} Where [_Identify] = " & id

Dim nm As String = cmd.ExecuteScalar

If nm <> User.Name Then

e.Table.DataTable.load()

Tables("入库表窗口_入库表").Position = Tables("入库表窗口_入库表").Rows.Count - 1

End If

[此贴子已经被作者于2020/3/3 10:57:07编辑过]

那么，想要达到这个功能，应该怎么做？才能使，数据库中的当前行的用户名列不等于当前登录用户时，则重新加载当前表？

测试时，发现了左边序号有红色感叹号

主题：只保存当前表中客户列不为空的行，应该怎么改？