Select Case e.DataCol.Name
Case "系列描述"
Dim dt As DataRow = e.DataRow
Dim pr As DataRow
Dim filter As String
filter = "产品名称 = '" & dr("系列描述") & "'"
pr = DataTables("产品明细").Find(filter)
If pr IsNot Nothing Then
dt("成本") = pr("进价")
End If
End Select
重置列的时候显示
错误所在事件:表,销售订单明细, DataColChanged
详细错误信息:
调用的目标发生了异常。
从字符串“系列描述”到类型“Integer”的转换无效。
输入字符串的格式不正确。
怎么改