请问老师,
1、我制作一个独立窗口,怎样才能让这个窗口一打开就是满屏显示呢。
2、录入窗口中有一些控件,想一打开窗就将登录用户名填写在姓名控件中,并在另一个表中以登录的姓名查找这个人的信息填入窗口内相关控件中,包括照片写入图片控件中。
1、窗口最大化:
forms("窗口1").baseform.windowstate = 2
2、直接给控件赋值,比如:
e.form.Controls("Text1") = User.Name
[此贴子已经被作者于2023/12/20 13:33:31编辑过]
直接赋值代码应写在哪呢,写窗口的事件中都显示错误。
比如以用户名调取表A的性别、民族、照片等写入窗口相应的控件中怎么写代码呢
在表事件中没问题
就是给窗口控件赋值不知怎么做,代码这么写在窗口事件中显示错误。
e.form.Controls("Text1") = User.Name
写不进去呀
Dim dr As DataRow = DataTables("职工信息总表").Find("姓名=User.Name")
If dr IsNot Nothing Then
e.form.Controls("TextBox1").text = User.Name
e.form.Controls("TextBox2").text = dr("性别")
End If
多看几遍:
http://www.foxtable.com/webhelp/topics/1284.htm
Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & User.Name & "'")
请问,自制窗口在别的一些显示器上不能正常显示的问题有办法解决吗。估计应该是与不同显示器上不同的分辩率有关。