1、去用户管理那里,添加普通用户;
2、按照1024*768的分辨率设计窗口,不要用打分辨率设计;
3、发布后,是不能修改列名的;
4、无法关闭,是因为没有保存当前行数据,你加入提示即可;
5、
If e.DataCol.Name = "相关人员" Then
If e.NewValue Is Nothing Then
e.DataRow("账目类型") = Nothing
Else
Dim dr As DataRow
dr = DataTables("教师一览表").Find("姓名 = '" & e.DataRow("相关人员") & "'")
If dr IsNot Nothing Then
e.DataRow("账目类型") = "支出"
Else
dr = DataTables("学员一览表").Find("姓名 = '" & e.DataRow("相关人员") & "'")
If dr IsNot Nothing Then
e.DataRow("账目类型") = "收入"
End If
End If
End If
End If