以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]我想显示成这样。怎么做  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15627)
--  作者：banemon
--  发布时间：2012/1/4 2:20:00
--  [求助]我想显示成这样。怎么做
我想在第三列输入100101，显示出来的是第二列的1001行b和100101行的c合成也的，如第四列第一行的样子。

注：会计科目 显示用。
    科目编号 只用一列
  10  a   100101    b\\c
   1001  b       
   100101   c      
[此贴子已经被作者于2012-1-4 2:23:31编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/1/4 8:31:00
--  
没看懂你的意思
--  作者：don
--  发布时间：2012/1/4 9:38:00
--  
If e.DataCol.Name = "第三列"  Then
    Dim dr1,dr2 As DataRow
    Dim s As String = e.NewValue
    If s Is Nothing Then
        e.DataRow("第四列")= Nothing
    Else
        dr1 = DataTables("表A").Find("第一列 = \'" & s.substring(0,s.length-2) & "\'")
        dr2 = DataTables("表A").Find("第一列 = \'" & s  & "\'")
        s =Nothing
        If dr1 IsNot Nothing Then
            s = dr1("第二列") & "/"
        End If
        If dr2 IsNot Nothing Then
            s+=dr2("第二列")
        End If
        e.DataRow("第四列")= s
    End If
End If
--  作者：pyh6918
--  发布时间：2012/1/4 9:38:00
--  

表事件DataColChanged：

 

If e.DataCol.Name = "第三列" Then
    If e.NewValue.Length = 6 Then
        Dim km As  String
        Dim dr As DataRow
        dr = DataTables("表A").Find("第一列 = \'" & e.NewValue.SubString(0,4) & "\'")
        If dr IsNot Nothing Then \'如果找到的话
            km=dr("第二列")
        End If
        Dim dr1 As DataRow
        dr1 = DataTables("表A").Find("第一列 = \'" & e.NewValue & "\'")
        If dr1 IsNot Nothing Then \'如果找到的话
            km=km & "\\" & dr1("第二列")
        End If
        e.DataRow("第四列")=km
    End If
End If
--  作者：banemon
--  发布时间：2012/1/4 13:44:00
--  
谢谢楼上的代码，我又做了点修改，用在Drawcell事件里，这多的代码会不会太负担Drawcell，请帮修改和优化一下，谢谢了。

If e.Row.IsNull("第三列") = False AndAlso e.Col.Name = "第三列"  Then
    Dim sor As Long = 2 \'科目编号位数
    Dim ii As Long = 4 \'一级科目编号位数
    Dim s As String = e.Row("第三列") \'输入值
    If s.Length<ii OrElse (s.Length-ii) Mod sor<>0 Then
        e.Row("第三列")=Nothing
    Else
        Dim dr1,dr2 As DataRow
        Dim ss As String =Nothing
        \'----        
        For i As Long =ii To s.Length Step sor
            dr1 = DataTables("表A").Find("第一列 = \'" & s.substring(0,i) & "\'")
            Dim va As String =""
            If dr1 Is Nothing Then
                messagebox.Show("会计科目编号未使用","错误")
                e.Row("第三列")=Nothing
                Exit For
            Else
                If I<s.Length Then va="\\"
                
                ss= ss & dr1("第二列") & va
            End If
        Next
        \'---
        e.Text = ss
    End If    
End If
[此贴子已经被作者于2012-1-5 2:09:21编辑过]
--  作者：banemon
--  发布时间：2012/1/4 22:22:00
--  
如上