研究一晚上也没弄明白,应该用哪个代码啊.

产品资料_StartEdit

If e.Col.Name = "产品分类" Then

Forms("窗口1").Open()

End If

窗口表事件

窗口1_Table1_DoubleClick

Dim tbl As Table = Tables("窗口1_Table1")

If tbl.Current IsNot Nothing Then

    Forms("窗口1").DropDownBox.Value = tbl.Current("产品分类")

就是这一段,我想双击后关闭,然后双击的文字输入到表中(不是下拉列表,应该怎么输入啊)

End If

Forms("窗口1").Close()

窗口与控件事件

窗口1_AfterLoad

Tables("系统设置").Filter = ""

窗口1_TextBox1_TextChanged

\'Dim t As Table = Tables("系统设置")

\'Dim s,f As String

\'s =e.Form.Controls("TextBox1").Text

\'f ="产品分类 Like \'" & s & "%\' or 拼音缩写 Like \'" & s & "%\'"

\'If DataTables("系统设置").Find(f) IsNot Nothing Then

\' T.Filter = f

\'End If

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("窗口1_Table1")

If txt = "" Then

    tbl.Filter = ""

Else

    txt = "\'*" & txt & "*\'"

    tbl.Filter = "产品分类 Like " & txt & " Or 拼音缩写 Like " & txt

End If

自定义函数

全局代码

菜单事件

保存_Click

For Each dt As DataTable In DataTables

    dt.Save()

Next

MessageBox.Show("保存完成!")

返回系统菜单_Click

Syscmd.Project.OpenSystemMenu()

基础资料_SelectTab

Output.Show("公司 产品基础资料添加!")

狐表里列属性不是有一个功能是显示列和取值列嘛．但是感觉应该加一个输入列，　意思就是 比如我输入　BJRM 　什么也不用动就会自动出现下拉列表 如北京人民大会堂，北京人民银行，等　快速按向下键，按完以后可以出现北京人民大会堂，或者出现其它的如，北京人民大会堂的电话什么的．大约就这个意思．

客户要货的时候，说的速度很快的，不可能一点点找．所以需要快速准确无误的找到他们想要的货的资料． 软件提供的模式还是不方便．自己不太会改啊．

有点向手机的搜索一样．但是手机搜索限制太多．

汽配城90%的人都在用思锐汽配软件, 想对这套软件进行改良.

foxtable提供了输入助手的，你也可以看看：

http://www.foxtable.com/help/topics/1534.htm