- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115281)
-- 发布时间：2018/3/4 13:24:00
-- 下拉窗口报错
一段代码，总报错，请帮我看一下问题在哪？谢谢了
此主题相关图片如下：qq截图20180304132055.png
此主题相关图片如下：qq截图20180304131956.png
-- 发布时间：2018/3/4 16:05:00
--
合成的条件不对，认认真真看看
http://www.foxtable.com/webhelp/scr/1284.htm
比如
dr2 = DataTables("表B").Find("[品名] = \'" & dr1("品名") & "\' And [规格] = \'" & dr1("规格") & "\'")
-- 发布时间：2018/3/4 17:58:00
--
当前的这个代码应该怎么修改一下：
If forms("新增生产设备检修记录").opened Then
Dim tbl As Table = Tables("新增生产设备检修记录_Table1")
Tables("新增生产设备检修记录_Table1").filter = "设备名称 = \'"& tables("生产设备").current("设备名称")&"\'" And "设备编号 = \'"& tables("生产设备").current("设备编号")&"\'"
With Tables("新增生产设备检修记录_Table1")
.Position = .Rows.Count - 1
End With
Tables("新增生产设备检修记录_table1").addnew()
If tbl.Current IsNot Nothing Then
Tables("生产设备").Current("企业名称") = tbl.Current("企业名称")
Tables("生产设备").Current("设备名称") = tbl.Current("设备名称")
Tables("生产设备").Current("规格型号") = tbl.Current("规格型号")
Tables("生产设备").Current("设备编号") = tbl.Current("设备编号")
Tables("生产设备").Current("使用部门") = tbl.Current("使用部门")
End If
End If
-- 发布时间：2018/3/4 18:09:00
--
Tables("新增生产设备检修记录_Table1").filter = "设备名称 = \'"& tables("生产设备").current("设备名称")&"\'" And "设备编号 = \'"& tables("生产设备").current("设备编号")&"\'"
改成
Tables("新增生产设备检修记录_Table1").filter = "设备名称 = \'"& tables("生产设备").current("设备名称")&"\' And 设备编号 = \'"& tables("生产设备").current("设备编号")&"\'"
-- 发布时间：2018/3/5 10:27:00
--
代码后半部分是虚的怎么？
此主题相关图片如下：qq截图20180305102544.png
-- 发布时间：2018/3/5 10:58:00
--
可以适当加入空格，如
Tables("新增生产设备检修记录_Table1").filter = "设备名称 = \'" & tables("生产设备").current("设备名称") & "\' And 设备编号 = \'" & tables("生产设备").current("设备编号") & "\'"
-- 发布时间：2018/3/5 12:00:00
--
好的，解决了，谢谢老师