Select e.DataCol.Name
Case "所属地区"
If e.DataRow.IsNull("所属地区") Then
e.DataRow("客户编码") = Nothing
Else
Dim dq As String = e.DataRow("所属地区")
Dim dqbm As String
Dim I As String
I = 1
dqbm = DataTables("地区").GetValues("地区编码","地区名称 = dq")
If e.DataRow("客户编号").SubString(1,2) <> dqbm '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(客户编码)") '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(3,4)) + 1 '获得最大编号的后四位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("客户编码") = I & dqbm & Format(idx,"0000")
End If
End If
麻烦老师看一下这哪地方出了问题,运行时提示“调用的目标发生了异常”,谢谢!