If e.DataCol.Name = "购货客户详细信息_订货日期" OrElse e.DataCol.name = "产品详细信息_产品编码" Then
If e.DataRow.isnull("购货客户详细信息_订货日期") OrElse e.DataRow.isnull("产品详细信息_产品编码") Then
e.DataRow("购货客户详细信息_订货单编码") = Nothing
Else
e.DataRow("购货客户详细信息_订货单编码") = GetPinyin(e.DataRow("购货客户详细信息_订货日期"), 1) & GetPinyin(e.DataRow("购货客户详细信息_省市"), 1) & GetPinyin(e.DataRow("购货客户详细信息_地区"), 1) & GetPinyin(e.DataRow("购货客户详细信息_公司简称"), 1) & GetPinyin(e.DataRow("购货客户详细信息_订货人"), 1) & e.DataRow("产品详细信息_产品编码").replace("*", "*")
End If
End If
加好友 
发短信
Post By：2018/7/13 20:04:00 [显示全部帖子]
