以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11207)
--  作者：cjong126
--  发布时间：2011/7/13 12:51:00
--  [求助]

If e.DataCol.Name = "仓库名称" Then \'如果更改的是仓库名称列
    If e.DataRow.IsNull("仓库名称") Then \'仓库名称是否为空
        e.DataRow("仓库简称") = Nothing \'如果为空,则清除仓库简称
    Else
        \'否则从仓库名称列中提取拼音简称
        e.DataRow("仓库简称") = e.DataRow(GetPY("仓库名称", True))

    End If
End If

输入内容提示column does ‘CKMC\' not belong to table 仓库

 
--  作者：czy
--  发布时间：2011/7/13 13:02:00
--  
If e.DataCol.Name = "仓库名称" Then \'如果更改的是仓库名称列
    If e.DataRow.IsNull("仓库名称") Then \'仓库名称是否为空
        e.DataRow("仓库简称") = Nothing \'如果为空,则清除仓库简称
    Else
        \'否则从仓库名称列中提取拼音简称
        e.DataRow("仓库简称") = GetPY(e.DataRow("仓库名称"), True)
    End If
End If
--  作者：cjong126
--  发布时间：2011/7/13 14:37:00
--  

谢谢