以下代码是窗口表当前行事件中的代码，包括一个科目余额总表（窗口中的table2）及科目余额明细表（窗口中的table1），黄色代码的意思是希望选择（窗口中的table2）该行时，（窗口中的table1）能够显示前四位科目编号与（窗口中的table2）的一致的明细
If e.Table.Current IsNot Nothing Then
Dim dr As DataRow = e.Table.Current.DataRow
If dr IsNot Nothing Then
Dim wz As Integer = Tables("科目余额总").FindRow(dr)
If wz >=0 Then
Tables("科目余额总").Position = wz
End If
End If
Dim t As Table =Tables("科目余额_table1")-绑定了科目明细表
With Tables("科目余额总")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "科目编号 = '" & .Current("科目编号") & "'and 公司名称 = '" & .Current("公司名称") & "'"
End If
End With
End If
加好友 
发短信
Post By：2016/4/16 9:28:00 [显示全部帖子]
