专家坐堂-DoubleClickFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  DoubleClick  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158815)

--  作者：qazlinle6
--  发布时间：2020/12/3 13:17:00
--  DoubleClick

DoubleClick

If e.Col.Name = "编号" Then
Forms("销售开票明细").Open()
End If

双击Tables("会员资料.销售合计") e.Col.Name = "编号" Then
打开 Forms("会员资料销售开票明细").Open()

代码那么弄

--  作者：有点蓝
--  发布时间：2020/12/3 13:45:00
--
销售合计表DoubleClick

If e.Col.Name = "编号" Then
e.cancel = true
Forms("会员资料销售开piao明细").Open()
End If

--  作者：qazlinle6
--  发布时间：2020/12/3 14:40:00
--

双击销售合计表编号列打开Forms("销售开piao明细").Open()

双击会员资料。销售合计表  编号列打开Forms("会员资料开piao明细").Open()

--  作者：有点蓝
--  发布时间：2020/12/3 14:45:00
--
if e.table.name = "销售合计表" then
打开Forms("销售开piao明细")
elseif e.table.name = "会员资料。销售合计表" then
打开Forms("会员资料开piao明细")
end if

--  作者：qazlinle6
--  发布时间：2020/12/4 21:33:00
--

If e.DataTable.name = "销售合计" Then 只在销售合计表上执行下面代码，在其它关联表上不执行

If e.DataCol.Name = "电话" AndAlso e.DataRow.isnull("电话") = False Then
DataTables("会员资料").LoadFilter = "电话 = \'" & e.newvalue & "\'"
DataTables("会员资料").Load
End If
Select Case e.DataCol.Name
Case "电话"

Dim dr1 As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr1 = DataTables("会员资料").Find("[电话] = \'" & e.DataRow("电话") & "\'")
If dr1 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("姓名")= dr1("姓名")
Tables("销售合计").Current.Save()
DataTables("会员资料").DataCols("电话").RaiseDataColChanged(dr1)
Else
e.DataRow("姓名")= Nothing
Tables("销售合计").Current.Save()
DataTables("会员资料").DataCols("电话").RaiseDataColChanged()
End If
If e.DataRow.IsNull("姓名") AndAlso e.DataRow.isnull("电话") = False Then
Forms("会员录入窗口").Open()
End If


End Select

End If

--  作者：有点蓝
--  发布时间：2020/12/5 9:29:00
--
StartEdit事件
vars("n") = e.Table.Name

datacolchanged事件
If vars("n") = e.DataTable.Name Then
原datacolchanged事件代码
endif