- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95320)
-- 发布时间：2017/1/16 16:46:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:意统一七版.foxdb |
在“意和入库登记表”中的“客户列”，做一个单元格按钮，打开窗口显示“客户信息表”中的客户列相同的行信息.
窗口表事件代码：
Dim dr As DataRow
DataTables("客户信息表").Find("客户 = \'" & Tables("意统入库登记表").Current("客户") & "\'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("客户信息表").FindRow(dr)
If wz >= 0 Then
Tables("客户信息表").Position = wz
End If
End If
Dim dr As DataRow
DataTables("客户信息表").Find("客户 = \'" & Tables("意统入库登记表").Current("客户") & "\'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("客户信息表").FindRow(dr)
If wz >= 0 Then
Tables("客户信息表").Position = wz
End If
End If
运行后，还是无法同步对应，求大神帮助，谢谢！
[此贴子已经被作者于2017/1/16 16:47:33编辑过]
-- 发布时间：2017/1/16 16:52:00
--
CellButtonClick事件
If e.Col.Name = "客户" Then
Dim wz As Integer = Tables("客户信息表").FindRow("客户 = \'" & e.Table.Current("客户") & "\'")
If wz >= 0 Then
Tables("客户信息表").Position = wz
End If
e.Cancel = True \'取消默认动作
Forms("客户信息表窗口").Open()
End If
-- 发布时间：2017/1/16 17:07:00
-- [求助]
已解决，但是还有个问题：
“意和入库登记表”新增一个新客户，“客户信息表”也新增，如果客户信息表中已经有同名客户，则不新增，怎么做？
-- 发布时间：2017/1/16 17:11:00
--
DataColChanged事件
If e.DataCol.name = "客户" AndAlso e.NewValue > "" Then
Dim fdr As DataRow = DataTables("客户信息表").find("客户 = \'" & e.DataRow("客户") & "\'")
If fdr Is Nothing Then
fdr = DataTables("客户信息表").AddNew
fdr("客户") = e.DataRow("客户")
End If
End If
-- 发布时间：2017/1/16 17:15:00
-- [求助]
这段代码是要写在“客户信息表”的表事件datacolchanged中的吗？
试过不行啊？
-- 发布时间：2017/1/16 17:30:00
-- 谢谢
多谢，我把代码放到“意和入库登记表”中之后，完全ok了，多谢！