1、
Select Case e.DataCol.name
Case "型号" ,"品牌","品类","单位"
Dim filter As String="[商品编号] ='" & e.DataRow("商品编号") & "'"
Dim drxs As List(of DataRow)=DataTables("销售明细表").sqlSelect(filter)
For Each drx As DataRow In drxs
drx("型号")=e.DataRow("型号")
drx("品类")=e.DataRow("品类")
drx("品牌")=e.DataRow("品牌")
drx("单位")=e.DataRow("单位")
Next
DataTables("销售明细表").SQLUpdate(drxs)
End Select
2、修改,是后台修改的,你前台要显示,你需要刷新表格数据。