- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]非关联表日期+1天录入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128420)
-- 发布时间：2018/12/5 19:16:00
-- [求助]非关联表日期+1天录入
表B日期等于对应表A编号的日期+1天，录入按钮代码，求助：
如果表B已存在的日期比对应表A的日期+1天还晚，提醒是否替换
With Tables("表A").Current
If .Isnull("编号") = False OrElse .IsNull("日期") = False Then
MessageBox.Show("缺少 编号 或日期!")
Return
End If
End With
Dim dr As DataRow = DataTables("表B").find("编号 = \'" & Tables("表A").Current("编号") & "\'")
If dr IsNot Nothing Then
dr("日期") = cdate(Tables("表A").Current("编号")).AddDays(1)
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期加一天.foxdb |
加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈
-- 发布时间：2018/12/5 21:08:00
--
With Tables("表A").Current
If .Isnull("编号") = False OrElse .IsNull("日期") = False Then
MessageBox.Show("缺少 编号 或日期!")
Return
End If
End With
Dim dr As DataRow = DataTables("表B").find("编号 = \'" & Tables("表A").Current("编号") & "\'")
If dr IsNot Nothing Then
If dr("日期") > cdate(Tables("表A").Current("编号")).AddDays(1) Then
Dim Result As DialogResult
Result = MessageBox.Show("是否替换?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.Yes Then
dr("日期") = cdate(Tables("表A").Current("编号")).AddDays(1)
End If
Else
dr("日期") = cdate(Tables("表A").Current("编号")).AddDays(1)
End If
End If