bin老师，您给的知识点我一时消化不了，我的所有代码如下：求指点错误？
项目事件
计划管理
表事件
信息备注表_CurrentChanged
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("信息备注表").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")
If dr IsNot Nothing Then
wz = Tables("信息备注表").FindRow(dr)
If wz >= 0 Then
Tables("客户信息").Position = wz
End If
End If
客户信息_CurrentChanged
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("客户信息").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")
If dr IsNot Nothing Then
wz = Tables("客户信息").FindRow(dr)
If wz >= 0 Then
Tables("信息备注表").Position = wz
End If
End If
客户信息_DataColChanged
Select Case e.DataCol.name
Case "编号"
Dim dr As DataRow = DataTables("信息备注表").Find("编号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("信息备注表").AddNew()
dr("编号") = e.DataRow("编号")
dr("客户姓名") = e.DataRow("客户姓名")
dr("联系电话") = e.DataRow("联系电话")
Else
dr("编号") = e.DataRow("编号")
End If
Case "客户姓名","联系电话"
Dim dr As DataRow = DataTables("信息备注表").Find("编号 = '" & e.DataRow("编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
客户信息_DataRowDeleting
Dim dr As DataRow = DataTables("信息备注表").Find("编号 = '" & e.DataRow("编号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
表A_CurrentChanged
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("客户信息").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")
If dr IsNot Nothing Then
wz = Tables("信息备注表").FindRow(dr)
If wz >= 0 Then
Tables("客户信息").Position = wz
End If
End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
菜单事件
加好友 
发短信
Post By：2015/5/11 0:58:00 [只看该作者]
此主题相关图片如下：qq截图20150511005546.jpg