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")中表达式总出错,求指点。
|