老师，在DataColChanged，当前表（“基本资料”）发生变化时，"资料明细"表数据自动更新；我想改为当前表（“基本资料”）保存后"资料明细"表再数据自动更新，下面的代码如何改？
Select Case e.DataCol.name
Case "简称"
Dim dr As DataRow = DataTables("资料明细").Find("简称 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("资料明细").AddNew()
dr("简称") = e.DataRow("简称")
dr("中文简称") = e.DataRow("中文简称")
dr("区域") = e.DataRow("区域")
dr("名称") = e.DataRow("名称")
dr("纳税人类型") = e.DataRow("纳税人类型")
dr("行业类型") = e.DataRow("行业类型")
dr("所得税类型") = e.DataRow("所得税类型")
dr("中文简称") = e.DataRow("中文简称")
Else
dr("简称") = e.DataRow("简称")
End If
Case "区域","名称","纳税人类型","行业类型","所得税类型","中文简称"
Dim dr As DataRow = DataTables("资料明细").Find("简称 = '" & e.DataRow("简称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
加好友 
发短信
Post By：2015/10/28 1:05:00 [显示全部帖子]
