以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]ReplaceFor的用法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164284)

--  作者:huaziqiao1976
--  发布时间:2021/5/4 12:10:00
--  [求助]ReplaceFor的用法
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If Date.Today > e.Form.Controls("DateTimePicker1").Value  Then
    Tables("应收款明细表").DataTable.ReplaceFor("年转", True, "月 = \'"& dtp1 & "\'")
红色代码出错,求助怎样代入,


--  作者:huaziqiao1976
--  发布时间:2021/5/4 12:50:00
--  
忘记加.TEXT了
--  作者:有点蓝
--  发布时间:2021/5/5 11:49:00
--  
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If Date.Today > e.Form.Controls("DateTimePicker1").Value  Then
    DataTables("应收款明细表").ReplaceFor("年转", True, "月 = #"& dtp1.Value & "#")