以文本方式查看主题

-  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=11757)
--  作者：yanzhen2010
--  发布时间：2011/8/10 16:20:00
--  克隆的代码，为何有误？

Select Case e.DataCol.Name
    Case "项目类别" ,"项目名称","单位","规格值","规格符","单价","规格","药品分类","零差价"
        Dim Filter As String = "拼音码= " & e.DataRow("拼音码")
        Dim drs As List(of DataRow) = DataTables("长期医嘱").Select(Filter)
        For Each dr As DataRow In drs
            dr("项目类别") = e.DataRow("项目类别")
            dr("项目名称") = e.DataRow("项目名称")
            dr("sys_药品分类") = e.DataRow("药品分类")
            dr("sys_零差价") = e.DataRow("零差价")
            dr("sys_单位") = e.DataRow("单位")
            dr("sys_规格") = e.DataRow("规格")
            dr("sys_规格值") = e.DataRow("规格值")
            dr("sys_规格符") = e.DataRow("规格符")
            If dr("sys_结算") = False
                dr("单价") = e.DataRow("单价")
            End If
        Next
End Select

代码写在“收费项目”表DataColChanged事件中，当重置"项目类别" ,"项目名称","单位",等列时居然提示错误，老师赐教。
--  作者：smileboy
--  发布时间：2011/8/10 16:26:00
--  
Dim Filter As String = "拼音码= \'" & e.DataRow("拼音码") & "\'"
--  作者：狐狸爸爸
--  发布时间：2011/8/10 16:40:00
--  

错误提示？
--  作者：yanzhen2010
--  发布时间：2011/8/10 19:32:00
--  
以下是引用smileboy在2011-8-10 16:26:00的发言：
Dim Filter As String = "拼音码= \'" & e.DataRow("拼音码") & "\'"

谢谢朋友提示，我怎么也没注意，原来是把“& "\'"”丢了，帮助中的错误。
--  作者：狐狸爸爸
--  发布时间：2011/8/10 20:55:00
--  

帮助可没有错，你自己看得不仔细：

 

http://www.foxtable.com/help/topics/1284.htm