请教竹笛窗体里DLOOKUP如何写？

PENGPAI

请看附件：

james781121

谢谢，我认真研究后解决了我想要的问是

sea.er

“列数”指的是你取“行来源”中的几列，“列宽”就是你取的这几列的宽度。
就本例而言，取的是“行来源”中的两列，但设定“列宽”的时候，把第一列设为了“0”，所以第一列就不可见了，你看到的只是第二列。
至于代码的作用，你把它们屏蔽掉看看效果你就清楚了。

PENGPAI

谢谢SEA。ER，问题解决了。但是我不明白的是我里面的代码好像没有起什么作用哦，能解释一下"列数"、“列宽”的用法吗？要是用代码如何写？

sea.er

下边那个组合框的"列数"、“列宽”有问题，你跟“竹笛”的程序对比一下就可以看出来

PENGPAI

PENGPAI

在组合框里好像不能直接回车，只能用TAB键，能否告诉我是用什么方法吗？谢谢！

[此贴子已经被作者于2003-9-18 11:50:47编辑过]

gechunkai

我认为用组合框比较合理。
因为组合框既支持选择，也支持直接输入。
只需用 me.texname.requery 就可以搞定。这样不需要编写太多的编码。简洁，方便。

（不过看大家讨论，还是益处多多）[em12]

[此贴子已经被作者于2003-9-18 10:11:00编辑过]

风鸣

如果表很大的话，这种方法不是很方便的，能不能输入字母后回车，名字就自动出来？

新建表1：字段名分别为“字母”，“名字”
窗体文本框的“更新”事件中加入代码：
TextName = DLookup("表1", "名字", "字母='" & Me!字母 & "'")

PENGPAI

谢谢SEA。ER，可以实现了，我模仿罗斯文的例子写了一段代码，但不能实现，我把它贴上来，大家有时间帮忙看一看，先谢了！（这里不知道怎么上传附件）
Private Sub 文本2_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_ProductID_AfterUpdate

    Dim strFilter As String
   
   
    strFilter = " & form!客户代码.文本0" = "[客户代码]"
   
   Form!文本2 = DLOOKUP("[客户名称]", "客户代码", strFilter)

Exit_ProductID_AfterUpdate:
    Exit Sub

Err_ProductID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ProductID_AfterUpdate

End Sub