以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  引用控件值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130829)
--  作者：表叔
--  发布时间：2019/2/3 8:49:00
--  引用控件值
需要把日期控件的值随着合并数据的同时添加到表里
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190203084527.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190203084641.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190203084730.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/2/3 9:31:00
--  
Dim id As Integer = DataTables("表A").Compute("max(_Identify)")
\'导入代码
DataTables("表A").AddNew
Dim Val As Date = Date.Today
If InputValue(Val, "选择月份","工资发放月份:") Then
    DataTables("表A").ReplaceFor("工资发放月份",val,"_Identify > " & id)
End If