出现“排序字符串包含一个不在 IBindingList 中的属性”错误提示,运行代码如下,老师帮忙看看哪里出问题了?
DataTables("产品表").LoadFilter = "[SKU] = '" & e.Form.Controls("SKU1").text & "'"
DataTables("产品表").Load
Dim dr As DataRow
Dim po As Integer
dr = DataTables("产品表").SQLFind("SKU = '" & e.Form.Controls("SKU1").text & "'")
po = Tables("产品表").FindRow(dr)'找出该DataRow在Table中的位置
If po >= 0 Then '如果找到
e.Form.Controls("编号1").Select
Else
MessageBox.Show("不存在此SKU!")
e.Form.Controls("SKU1").text = ""
e.Form.Controls("SKU1").Select
End If
DataTables("产品明细").LoadFilter = "[SKU] = '" & e.Form.Controls("SKU1").text & "'"
DataTables("产品明细").Load