参考
Dim s = DataTables("圆形计算程序").Find("参数名称 = '铁芯级数'")("修正")
If s = nothing Then
Tables("学习记忆表").Filter = "[可修正参数_铁芯级数] is null"
Else
Tables("学习记忆表").Filter = "[可修正参数_铁芯级数] = '" & s & "'"
End if
加好友 
发短信
Post By：2019/4/1 9:34:00 [显示全部帖子]
