主题：扫条码提取信息

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip

If e.DataCol.Name = "条形码" Then
    If e.Newvalue <> Nothing AndAlso e.newvalue.length >= 32 Then
        e.DataRow("账户编号") = e.newvalue.substring(7, 9)
        e.DataRow("账期") = e.newvalue.substring(16, 4)
        e.DataRow("金额") = e.newvalue.substring(25, 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

非常感谢，已可以提取，再问下，金额列如何提取后保留2位小数

e.DataRow("金额") = e.newvalue.substring(25, 8) / 100