求助老师
问题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、“村干部基本信息”表无法修改列宽，鼠标调整并保存后，重新打开依然不能保存调整宽度？不知道为什么
[此贴子已经被作者于2019/8/2 18:47:25编辑过]
加好友 
发短信
Post By：2019/8/2 18:07:00 [只看该作者]
