主题：预览与上传

绑定表列以后，切换一下上下行试试。

切换上下行后会自动更新，没问题。

 

那你就用代码这样模拟一下呗。

 

或者是把绑定属性BindingField设置成nothing，再设置回来。

老师，现在是这个问题，我登录时，直接输入用户名和密码，登录后加载的头像没有问题，当我记住用户名和密码，直接登录时，头像就不对，显示的是所属部门的第一个人的头像。

登录按钮代码如下：

Dim bm As WinForm.ComboBox = e.Form.Controls("部门")
Dim zh As WinForm.TextBox = e.Form.Controls("账号")
Dim mm As WinForm.TextBox = e.Form.Controls("密码")
If bm.Value ="" Then
    MessageBox.Show ("请选择机构或部门!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If zh.Value ="" Then
    MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If mm.value = "" Then
    MessageBox.Show ("密码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
'判断部门账号是否一致
Dim dr As DataRow= DataTables("账号密码").sqlFind("账号 = '" & zh.text & "'")
If dr Is Nothing Then
    MessageBox.Show ("账号不存在,请确认账号是否注册!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
_UserPart = dr("机构名称")  '用户账号,给全局代码赋值,对登陆没影响
_UserGroup = dr("部门")  '用户部门,给全局代码赋值,对登陆没影响
_UserPost = dr("职务")   '用户职务,给全局代码赋值,对登陆没影响
_UserXingMing =dr("姓名")   '用户姓名,给全局代码赋值,对登陆没影响
_UserName = dr("账号")  '用户账号,给全局代码赋值,对登陆没影响
_UserPassword = dr("密码")   '用户密码,给全局代码赋值,对登陆没影响
Dim bmyz As String = dr("机构名称")
If bm.value <> bmyz  Then
    MessageBox.Show ("账号与部门不一致,请确认账号是否正确!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If  mm.value= dr("密码") Then
    '判断是否通过审核,标记为-1时,提示未通过审核,为1时直接登录
    If dr("标记") = "-1" Then
        MessageBox.Show ("您未通过管理员审核,请与管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return
    End If
    Forms("加载进度").open()
    If e.Form.Controls("CheckBox1").checked=True Then
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName",_UserName)  '保存登录信息到注册表
    Else
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName","")  '保存登录信息到注册表
    End If
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Group",_UserPart)  '保存登录信息到注册表
    If e.Form.Controls("CheckBox2").checked=True Then
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","0000",_UserPassword)  '保存登录信息到注册表
    Else
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","0000","")  '保存登录信息到注册表
    End If
    User_Control.clear
    User_Control.AddRange(dr("菜单可用集合").Split(",")) '权限集合
    User_Control1.clear
    User_Control1.AddRange(dr("菜单可见集合").Split(",")) '权限集合
    Functions.Execute("Design_Add")
    Forms("登录").close
    MainTable = Tables("主界面")
    Forms("导航窗口上").open
    Forms("导航窗口左").open
    basemainform.opacity = 0  '设置为透明
    basemainform.visible = True  '设置为可见
    Forms("主窗口").open()  
    basemainform.opacity = 1  '设置为不透明
Else
    zh.Value =""
    mm.value = ""
    MessageBox.Show ("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If

 

记住用户名CheckedChanged事件

If e.Sender.checked=True Then
saveconfigvalue("Group",e.Form.Controls("部门").Value)
saveconfigvalue(UserName, e.Form.Controls("账号").Value)
End If
saveconfigvalue("Remember", e.Sender.checked)

 

记住密码CheckedChanged事件

saveconfigvalue(0000, e.Form.Controls("密码").Value)

1、记住用户名、密码等，不是也要出现登陆窗口，自动输入用户名、密码，然后点击登陆的么？如果是这样，不可能有问题的啊。

 

2、如果你是直接就进入系统的话，你同样要把你登陆按钮的代码，写到你直接进入系统的代码后面去。