主题：扫条码提取信息

If e.DataCol.Name = "条形码" Then
    If e.newvalue.length >= 32 Then
        e.DataRow("账户编号") = e.newvalue.substring(6, 9)
        e.DataRow("账期") = e.newvalue.substring(15, 4)
        e.DataRow("金额") = e.newvalue.substring(24, 8)
    Else
        e.DataRow("账户编号") = Nothing
        e.DataRow("账期") = Nothing
        e.DataRow("金额") = Nothing
    End If
End If

If e.DataCol.name = "账户编号" Then
    Dim fdr As DataRow = DataTables("客户信息").find("账户编号 = '" & e.newvalue & "'")
    If fdr Is Nothing Then
        e.DataRow("公司名字") = Nothing
        e.DataRow("业务种类") = Nothing
    Else
        e.DataRow("公司名字") = fdr("公司名字")
        e.DataRow("业务种类") = fdr("业务种类")
    End If
End If