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
加好友 
发短信
Post By：2018/10/5 12:01:00 [只看该作者]
