主题：扫条码提取信息

DataColChanged事件

 

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

If e.DataCol.Name = "开张数" Then

改成

 

If e.DataCol.Name = "条形码" Then

不可能，上传具体例子测试。

上传foxtable例子测试怎样不行。

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

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