- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 取明细表科目编号的前四位 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83765)
-- 发布时间：2016/4/16 9:28:00
-- 取明细表科目编号的前四位
以下代码是窗口表当前行事件中的代码，包括一个科目余额总表（窗口中的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
-- 发布时间：2016/4/16 9:28:00
--
以上代码黄色部分怎么修改
-- 发布时间：2016/4/16 10:32:00
--
.Current("科目编号").SubString（0,4）
-- 发布时间：2016/4/16 10:46:00
--
如例子中的窗口1，怎么能够在总表（table1）选定某行，明细（table2）中显示相应的明细呢？比如选择1001，明细表显示1001.01、1001.02、1001.03等
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目13.foxdb |
-- 发布时间：2016/4/16 13:25:00
--
t.Filter = "科目编号 like \'" & .Current("科目编号") & "\'and 公司名称 = \'" & .Current("公司名称") & "\'
以上代码怎么修改？
-- 发布时间：2016/4/16 15:34:00
--
t.Filter = "科目编号 like \'" & .Current("科目编号") & "%\' and 公司名称 = \'" & .Current("公司名称") & "\'
-- 发布时间：2016/4/16 17:37:00
--
解决了，谢谢