初学者都来看看，一个应用是怎么做出来的

NTCCN

小弟想设计一个专门用来管理进项发票的ｍｄｂ，但是才疏学浅不能做到，有没有大侠可以帮忙？ 没有报酬如需要可以赠送１０ＱＢ。、问题如下：
希望在收票情况窗体中的供货商列表框中输入词组，程序能自动展开列表框并匹配刚才输入的词组一共选择。
在选择了供货商后，希望程序能把供货单位资料表中该供货商的识别号自动填列在收票情况窗体里的识别号。
令希望双击税率栏该条记录不可再修改除非再次双击税率栏。
谢谢！

[ 本帖最后由 NTCCN 于 2008-11-25 20:19 编辑 ]

Henry D. Sy

Private Sub 供货商_AfterUpdate()
    Me.供货商.Requery
    Me.识别号 = Me.供货商.Column(0)
End Sub

Private Sub 供货商_Change()
    Me.供货商.RowSource = _
    "SELECT 供货单位资料.识别号, 供货单位资料.单位名称 FROM 供货单位资料 where 供货单位资料.单位名称 like '*" & _
                       Me.供货商.Text & "*'"
    Me.供货商.Dropdown
End Sub


Private Sub 税率_DblClick(Cancel As Integer)
    Me.税率.Locked = Not Me.税率.Locked
End Sub

NTCCN

这个困扰我的难题在高手面前居然如此简单，佩服佩服，谢谢谢谢

Henry D. Sy

原帖由 NTCCN 于 2008-11-18 16:26 发表
这个困扰我的难题在高手面前居然如此简单，佩服佩服，谢谢谢谢

我的10个Q币那？[:36][:36]

NTCCN

你ｑｑ号是多少？我充２０个给你，不过还要问你一个问题，为表诚意，我充给你以后再问你。

Henry D. Sy

原帖由 NTCCN 于 2008-11-19 22:18 发表
你ｑｑ号是多少？我充２０个给你，不过还要问你一个问题，为表诚意，我充给你以后再问你。

鄙人天生爱开玩笑，别当真。[:24]

wuminhui

真是高手阿！

changweiren

dddddd视Q币如无物，佩服佩服！

NTCCN

就是在窗体上加两个按钮，一个为审核，作用为点击后该条记录（此记录是指数据表里的一条完整记录）不能再修改，而新增记录后却能修改；反审核按钮作用相反。
如何使当发票名称为运费发票时，税率为７％，税额＝发票金额×７％，价税合计＝金额。
如何使单价或运价的标签当发票名称为运费时为运价，其它发票名称为单价？
如何使供应商或识别号及地址栏获得焦点时在备注栏里显示相应内容（因为供应商栏里有时显示不全供应商名称，为了方便查看供应商里的内容）？
如何查询期间为一个自然月的发票所含税额？
问题有点多，要是dddddd能帮忙就好了，再次谢谢ｄｄｄｄｄｄ的帮助。除了Ｑ币，我有百来万ＭＰ，给ｄｄｄｄｄｄ你做酬劳行吗？

Henry D. Sy

MP是什么东东，