下列我写的代码，但“单位简称”列取不到值。谢谢指导。
If e.DataCol.Name = "项目管理单位" Then '发生变化的是产品编号吗?
Dim dr As DataRow
Dim Value As String
Select Case Value
Case "贵阳高新资产运营有限公司高科会计核算账薄"
dr("单位简称") = "资产运营"
Case "贵阳高科建设投资(集团)有限公司贵阳高科会计核算账簿"
dr("单位简称") = "建设集团"
Case "贵州高新中关村贵阳科技园投资开发有限公司贵阳高科会计核算账簿"
dr("单位简称") = "中关村"
Case "贵阳高科控股集团有限公司贵阳高科会计核算账簿"
dr("单位简称") = "控股集团"
Case "贵阳高科开发建设有限公司贵阳高科会计核算账簿"
dr("单位简称") = "开发建设"
Case "贵阳高科置业发展有限公司贵阳高科会计核算账簿"
dr("单位简称") = "置业发展"
Case "贵州望城投资发展公司贵阳高科会计核算账簿"
dr("单位简称") = "望城投资"
Case "贵阳望达置业公司贵阳高科会计核算账簿"
dr("单位简称") = "望达置业"
End Select
End If
加好友 
发短信
Post By：2017/11/1 11:43:00 [只看该作者]
