Office中国论坛/Access中国论坛

标题: 此表怎么做成要求中的窗体？ [打印本页]

作者: yh2008 时间: 2010-12-22 14:05
标题: 此表怎么做成要求中的窗体？
请看图片
[attach]44454[/attach]
文件如下
[attach]44455[/attach]
哪位会的帮忙做一个了啊谢谢了

作者: cao_yin 时间: 2010-12-22 14:15
me.text1.value=me.组合框.Column(i)

i为需要显示的第几列。如公司在第一列，那么me.公司.value=me.组合框.Column(1)

这是昨天todaynew 老师教我的，现学现用，不对的希望各位老师指正。

作者: cao_yin 时间: 2010-12-22 14:17
可以在组合框 afterupdata 添加那段代码

作者: roych 时间: 2010-12-22 15:05
你这个是输入窗体，只要改了就没问题的了~~如果是查询窗体，则需要在文本框（不过我们一般更愿意选择组合框）更改里写上代码：
me.供应商_ID.requery
你这个格式转换得很郁闷~~莫名其妙地关闭了几次。

作者: caoguangyao 时间: 2010-12-22 15:13
本帖最后由 caoguangyao 于 2010-12-22 15:31 编辑

在窗体中加入三个文本框，Text1、Text2、Text3
在窗体的当前事件中加入如下代码：（由于本人无权上传附件，只好贴上代码供参考）
Private Sub Form_Current()
Dim i As Integer
Dim SP
SP = Split(Me.供应商_ID.Column(1), "，")
For i = 0 To UBound(SP, 1)
SP(i) = SP(i)
Next
Me.Text1 = SP(0)
Me.Text2 = SP(1)
Me.Text3 = SP(2)
End Sub
file:///C:/Documents%20and%20Settings/cgy.CAOGUANGYAO/Application%20Data/Tencent/Users/451595724/QQ/WinTemp/RichOle/N)6F%ML${9X11]_0ZBHA`YX.jpg

作者: yh2008 时间: 2010-12-22 15:56
具体的怎么做了
我是新手能不能请会的朋友帮忙改一个出来啊谢谢了

作者: todaynew 时间: 2010-12-22 16:36

yh2008 发表于 2010-12-22 15:56
具体的怎么做了
我是新手能不能请会的朋友帮忙改一个出来啊谢谢了

[attach]44456[/attach]

[attach]44457[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)