以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]动态表达式数字参数总出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89706)

--  作者：ajie5211 --  发布时间：2016/8/27 15:58:00 --  [求助]动态表达式数字参数总出错  Dim idiord As List(of String)         Dim ez As Integer         If e.NewValue Is Nothing Then             ez = -1         Else             ez = e.NewValue          End If         idiord = DataTables("tabDIYTable29").GetValues("iOrd","ID =  ez")         If idiord.Count = 1 Then             Dim dr As DataRow = DataTables("tabDIYTable29").Find("ID =  ez")             e.DataRow("仓库名称") = dr("F160")             e.DataRow("现有库存") = dr("F162")             e.DataRow("最近入库日期") = dr("F166")             e.DataRow("最近出库日期") = dr("F165")             e.DataRow("最低库存") = dr("F2429")             e.DataRow("最高库存") = dr("F2430")             Dim zxr As Date = dr("F165")             If zxr.AddDays(93) < Date.Today Then                 e.DataRow("销售状态") = ""             Else                 e.DataRow("销售状态") = "滞销"             End If         Else If idiord.Count > 1 Then                     Else         End If 这句idiord = DataTables("tabDIYTable29").GetValues("iOrd","ID =  ez")中表达式总出错，求指点。

--  作者：Hyphen --  发布时间：2016/8/27 16:25:00 --   idiord = DataTables("tabDIYTable29").GetValues("iOrd","ID =  \'" & ez) Dim dr As DataRow = DataTables("tabDIYTable29").Find("ID =  \'" & ez)