主题：求救

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

 

 

产品资料_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("公司 产品基础资料添加!")