以下是一个将临时表内容保存到商品出库的表中的代码
在代码最后我想强制刷新商品出库表中的单价列,
DataTables("商品出库").DataCols("单价").RaiseDataColChanged()
这句代码会刷新所有列,我只需要刷新当前填入数据的那几列就可以了,不知道该如何去改 谢谢!
If DataTables("出库").datarows.count < 1 Then
messagebox.show("表中数据为空!")
Else
Dim dr1 As DataRow
Dim dt As DataTable = DataTables("出库")
Dim r As Integer
r = Tables("商品出库").FindRow("[出库日期] Is null", 0 , False ) '从当前行开始查找
If r >= 0 Then '如果找到的话
Tables("商品出库").Position = r '定位到找到的行.
For Each dr As DataRow In dt.datarows
dr1 = DataTables("商品出库").DataRows(r)
For Each dc As DataCol In dt.datacols
dr1(dc.name) = dr(dc.name)
Next
Next
Else
For Each dr As DataRow In dt.datarows
dr1 = DataTables("商品出库").DataRows.addnew()
For Each dc As DataCol In dt.datacols
dr1(dc.name) = dr(dc.name)
Next
Next
End If
DataTables("商品出库").save()
DataTables("出库").DataRows.Clear() '清除所有行
DataTables("商品出库").DataCols("单价").RaiseDataColChanged()
e.Form.Close()
End If