以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 编码求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121848) |
-- 作者:xusuyang -- 发布时间:2018/7/13 20:04:00 -- 编码求助 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
|
-- 作者:有点蓝 -- 发布时间:2018/7/13 20:34:00 -- 代码有什么问题?运行有什么错误? |