此表怎么做成要求中的窗体？

yh2008

请看图片

文件如下

哪 位会的帮忙做一个了啊谢谢了

cao_yin

me.text1.value=me.组合框.Column(i)

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

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

cao_yin

可以在组合框 afterupdata 添加那段代码

roych

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

caoguangyao

在窗体中加入三个文本框，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

具体的怎么做了
我是新手能不能请会的朋友帮忙改一个出来啊谢谢了

todaynew

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