标题：代码修改

1楼

明丰发表于：2011/8/23 20:29:00

"比率"列为Double数据类型

If e.DataCol.Name = "比率" Then '
Dim dr As DataRow
dr = e.DataTable.Find("货品编号 = '" & e.DataRow("货品编号") & "' And 比率 = " & e.NewValue )
If dr IsNot Nothing Then
MessageBox.Show("比率不能重复!")
e.Cancel = True
End If
End If

删除"比率"列的数值时会出错,请帮忙修改,谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

2楼

czy 发表于：2011/8/23 21:31:00

If e.DataCol.Name = "比率" Then
    If e.NewValue IsNot Nothing Then
        Dim dr As DataRow
        dr = e.DataTable.Find("货品编号 = '" & e.DataRow("货品编号") & "' And 比率 = " & e.NewValue )
        If dr IsNot Nothing Then
            MessageBox.Show("比率不能重复!")
            e.Cancel = True
        End If
    End If
End If

[此贴子已经被作者于2011-8-23 21:34:12编辑过]

共2 条记录, 每页显示 10 条, 页签: [1]