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

DoubleClick

If e.Col.Name = "编号" Then

Forms("销售开piao明细").Open()

End If

双击Tables("会员资料.销售合计") e.Col.Name = "编号" Then

打开 Forms("会员资料销售开piao明细").Open()

代码那么弄

销售合计表DoubleClick

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

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

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

if e.table.name = "销售合计表" then

打开Forms("销售开piao明细")

elseif e.table.name = "会员资料。销售合计表" then

打开Forms("会员资料开piao明细")

end if

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

StartEdit事件

vars("n") = e.Table.Name

datacolchanged事件

If vars("n") = e.DataTable.Name Then

原datacolchanged事件代码

endif

主题：DoubleClick