Select Case e.DataCol.Name
Case "房间","项目","订单号" ,"楼层" ,"主材工艺" ,"蓝图号"
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("区域"))
For Each dr As DataRow In drs
dr(e.DataCol.Name) = e.NewValue
Next
End Select
---------------------------
错误
---------------------------
编译错误:应为语句结束。
错误代码:Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("区域"))
---------------------------
确定
---------------------------