If CurrentTable.name = "接头BOM"
dim cnt as integer = 0
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & ")
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & ")
For i As Integer = 1 To drs.Count - 1
If drs(i)("物料号") <> drs(i-1)("物料号")
cnt = cnt + 1
End If
Next
if cnt >= 1
messagebox.show("本页面存在两个以上不同的物料号!")
end if
end if
上述代码是放在菜单上一个按钮里面的，用于统计某个数据列“物料号”里面有多少个不同的物料号。但是无法保存此代码，说“错误代码：Dim mr As DataRow = e.DataRow”。请你帮我修改一下。谢谢。
加好友 
发短信
Post By：2021/1/13 8:13:00 [只看该作者]
