以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提示：语法错误:“=”运算符后缺少操作数。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125730)
--  作者：yetle
--  发布时间：2018/10/5 12:01:00
--  提示：语法错误:“=”运算符后缺少操作数。
Dim dnew As Row = Tables("生产制造单_table1").AddNew
dnew("输入人")= usna
dnew("单据期")= Date.Today
Dim d1 As Date = Date.Today
Dim dd As Integer = Format(d1, "yymmdd")
dnew("生产单号") = dd & format(dnew("_Identify"), "00")
Tables("生产制单主表").save()


"生产制造单_table1" CurrentChanged为：
If Forms("生产制造单").Opened()
    Dim t As Table = Tables("生产制造单_table2")
    Dim d As Table = Tables("生产制造单_table1")    
        If d.Current Is Nothing Then
            t.Filter = "False"
          Else If d.Current("生产单号") IsNot Nothing Then       
            t.Filter = "生产单号 = " & d.Current("生产单号")                                      
        End If
End If
--  作者：有点甜
--  发布时间：2018/10/5 12:19:00
--  

t.Filter = "生产单号 = " & d.Current("生产单号")

 

改成

 

t.Filter = "生产单号 = \'" & d.Current("生产单号") & "\'"