谢谢楼上的代码，我又做了点修改，用在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编辑过]
加好友 
发短信
Post By：2012/1/4 2:20:00 [只看该作者]
