Dim t As Table = Tables("计划表窗口_Table9") Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-") Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position) Dim i = Tables("记事表").findrow("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'") If i >= 0 Then Tables("记事表").Position = i Forms("记事表编辑窗口").show
加好友 
发短信
Post By：2017/9/25 0:22:00 [显示全部帖子]
