以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未找到类型“PictureViewer”的公共成员“Value”。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169619)

--  作者:qazlinle6
--  发布时间:2021/6/23 11:06:00
--  未找到类型“PictureViewer”的公共成员“Value”。
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.5.29.1
错误所在事件:窗口,更改用户,AfterLoad
详细错误信息:
未找到类型“PictureViewer”的公共成员“Value”。



PictureViewer”的公共成员是哪个

--  作者:有点蓝
--  发布时间:2021/6/23 11:11:00
--  
看帮助里的属性和方法:http://www.foxtable.com/webhelp/topics/1894.htm
--  作者:qazlinle6
--  发布时间:2021/6/23 11:21:00
--  
我更改用户,用绑定的不显示我更改用户的那一行


--  作者:有点蓝
--  发布时间:2021/6/23 11:23:00
--  
图片管理器如果绑定了列,选中哪一行就显示哪一行的图片列图片。不显示,要么图片不存在,要么路径不正确
--  作者:qazlinle6
--  发布时间:2021/6/23 11:46:00
--  
Dim UserName As String
Dim UserGroup As String
Dim PassWord As String
Dim dr As DataRow
If Forms("用户管理").Opened Then \'正常打开
    UserName = Forms("用户管理").Controls("ListBox1").SelectedItem
Else
    UserName = _UserName \'_UserName为全局变量,用于保存当前用户名
    e.Form.Controls("UserName").Enabled = False
    e.Form.Controls("UserGroup").Enabled = False
    e.Form.Controls("备注").Enabled = False
    e.Form.Controls("企业名").Enabled = False
    e.Form.Controls("编号地址").Enabled = False
    e.Form.Controls("地址").Enabled = False
    e.Form.Controls("电话").Enabled = False
    e.Form.Controls("指定打印机名称").Enabled = False
    e.Form.Controls("公司合同社保").Enabled = False
    e.Form.Controls("公司名称").Enabled = False
    e.Form.Controls("公司地址").Enabled = False
    e.Form.Controls("公司法定代表人").Enabled = False
    
End If
e.Form.Text = e.Form.Text & "-" & UserName
dr = _UserTable.SQLFind("[Name] = \'" & UserName & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("UserName").Value = UserName
    e.Form.Controls("UserGroup").Value = dr("Group")
    e.Form.Controls("PassWord").Value = dr("PassWord")
    e.Form.Controls("备注").Value = dr("账号备注")
    e.Form.Controls("企业名").Value = dr("账号企业名")
    e.Form.Controls("编号地址").Value = dr("账号编号地址")
    e.Form.Controls("地址").Value = dr("账号地址")
    e.Form.Controls("电话").Value = dr("账号电话")
    e.Form.Controls("指定打印机名称").Value = dr("指定打印机名称")
    e.Form.Controls("公司合同社保").Value = dr("公司合同社保")
    e.Form.Controls("公司名称").Value = dr("公司名称")
    e.Form.Controls("公司地址").Value = dr("公司地址")
    e.Form.Controls("公司法定代表人").Value = dr("公司法定代表人")
    
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If


这样显示的

--  作者:有点蓝
--  发布时间:2021/6/23 11:53:00
--  
PictureViewer控件必须也只能绑定列使用,不能直接赋值的