主题：求教单据套打的问题

 去编写dataformat事件

 

http://www.foxtable.com/help/topics/0737.htm

 

e.Value = CUNum(cstr(GetDigit(e.Value,0)))

 必须是数字啊

第0位就是这个啊。

 无语，不会啊

 没有问题啊，GetDigit取出的就是数字啊，肯定是你搞错了。不行，就上传具体问题

 这样写

 

Dim s As String = cstr(GetDigit(e.Value,6))
Dim i As Integer
If Integer.TryParse(s, i) Then
    e.Value = CUNum(i)
Else
    e.Value = Nothing
End If

  那就写成

 

Dim s As String = cstr(GetDigit(e.Value,6))
Dim i As Integer
If Integer.TryParse(s, i) Then
    e.Value = CUNum(i)
Else
    e.Value = ""
End If