- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]运算错误问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138531)
-- 发布时间：2019/8/2 18:07:00
-- [求助]运算错误问题
求助老师
问题1、当打开或新增行的时候，会弹窗提示 语法错误:“=”运算符后缺少操作数。
怀疑是 “村干部基本信息”表的Currentchanged事件函数错误
Dim r As Row = e.Table.Current
If r Is Nothing Then Return
If Forms("主界面").Opened
Forms("主界面").Controls("TextBox7").text = r("工作单位_镇街") & r("工作单位_村居社区") & r("职务")
Forms("主界面").Controls("TextBox4").text = IIF(r.IsNull("入党时间"),"否","是")
With Tables("村干部基本信息")
If .Current Is Nothing Then
Tables("主界面_Table2").Filter = "False"
Tables("主界面_Table3").Filter = "False"
Tables("主界面_Table4").Filter = "False"
Else
Tables("主界面_Table2").Filter = "村干部编号 = " & .Current("村干部编号")
Tables("主界面_Table3").Filter = "村干部编号 = " & .Current("村干部编号")
Tables("主界面_Table4").Filter = "村干部编号 = " & .Current("村干部编号")
End If
End With
End If
不知道如何修改，请老师指导？
问题2、“村干部基本信息”表无法修改列宽，鼠标调整并保存后，重新打开依然不能保存调整宽度？不知道为什么
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求助.zip |
[此贴子已经被作者于2019/8/2 18:47:25编辑过]
-- 发布时间：2019/8/2 19:21:00
--
Dim r As Row = e.Table.Current
If r Is Nothing Then Return
If Forms("主界面").Opened
Forms("主界面").Controls("TextBox7").text = r("工作单位_镇街") & r("工作单位_村居社区") & r("职务")
Forms("主界面").Controls("TextBox4").text = IIF(r.IsNull("入党时间"),"否","是")
With Tables("村干部基本信息")
If .Current Is Nothing Then
Tables("主界面_Table2").Filter = "False"
Tables("主界面_Table3").Filter = "False"
Tables("主界面_Table4").Filter = "False"
Else
Tables("主界面_Table2").Filter = "村干部编号 = \'" & .Current("村干部编号") & "\'"
Tables("主界面_Table3").Filter = "村干部编号 = \'" & .Current("村干部编号") & "\'"
Tables("主界面_Table4").Filter = "村干部编号 = \'" & .Current("村干部编号") & "\'"
End If
End With
End If