我想在第三列输入100101，显示出来的是第二列的1001行b和100101行的c合成也的，如第四列第一行的样子。
注：会计科目 显示用。
科目编号 只用一列
| 10 | a | 100101 | b\c
|
| 1001 | b | | |
| 100101 | c | | |
[此贴子已经被作者于2012-1-4 2:23:31编辑过]
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
表事件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
谢谢楼上的代码，我又做了点修改，用在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编辑过]