共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：ADO无法实现数据源词典和禁止重复录入-ACCESS
1楼
lin98 发表于：2023/11/1 18:39:00ADO无法实现数据源词典和禁止重复录入-ACCESS,如何处理？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据库测试 - access-初 - 词典问题.zip |
2楼
有点蓝 发表于：2023/11/2 8:51:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据库测试 - access-初 - 词典问题.zip |
3楼
lin98 发表于：2023/11/2 9:25:00ACCESS
If e.DataTable.Compute("Count([_Identify])", "单号 = '" & dr("单号") & "' And 编号 = '" & dr("编号") & "'") > 1 Then'MYSQL
If e.DataTable.Compute("Count([ID])", "单号 = '" & dr("单号") & "' And 编号 = '" & dr("编号") & "'") > 1 Then'
在MYSQL中失效，如何解决？
注：([ID])是MYSQL的主键，
4楼
有点蓝 发表于：2023/11/2 10:13:00列名正确不可能有问题的，去掉中括号试试
5楼
lin98 发表于：2023/11/2 10:19:00Select Case e.DataCol.name
Case "采购单号", "产品编号"
Dim dr As DataRow = e.DataRow
If dr.IsNull("采购单号") = False AndAlso dr.IsNull("产品编号") = False Then
If e.DataTable.Compute("Count(ID)", "采购单号 = '" & dr("采购单号") & "' And 产品编号 = '" & dr("产品编号") & "'") > 1 Then'
MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End If
End If
End Select
列名正确，但还是失效
6楼
有点蓝 发表于：2023/11/2 10:34:00只能说明没有符合条件的数据，或者数据没有加载
7楼
lin98 发表于：2023/11/2 10:44:00我知道MYSQL(ID)主键与录入的数据不同步，在狐表里MYSQL(ID)主键是在录入数据，保存后才自动生成主键，所以找不到条件，不象ACCESS主键与录入的数据同步，如何解决。
8楼
有点蓝 发表于：2023/11/2 10:45:00If e.DataTable.Compute("Count(采购单号)", "采购单号 = '" & dr("采购单号") & "' And 产品编号 = '" & dr("产品编号") & "'") > 1 Then'
共8 条记录, 每页显示 10 条, 页签:
[1]