以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字母  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68882)
--  作者：风声
--  发布时间：2015/5/26 19:49:00
--  [求助]字母
老师好，我要在名称列中获取名称的第一个字的字母。如(苏州市)我只要获取苏的字母（s)然后赋值给字母列。
--  作者：大红袍
--  发布时间：2015/5/26 19:52:00
--  

Datacolchanged事件

 

If e.DataCol.Name = "名称" Then
    If e.DataRow.IsNull("名称") Then
        e.DataRow("字母") = Nothing
    Else
        e.DataRow("字母") = GetPy(e.DataRow("名称").SubString(0,1), True)
    End If
End If
--  作者：风声
--  发布时间：2015/5/26 20:26:00
--  
谢谢老师
--  作者：风声
--  发布时间：2015/5/28 11:10:00
--  

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "票据原件"
        If dr.IsNull("票据号码")  Then
            MessageBox.Show("请输入票据号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            e.FileName = dr("票据号码") & ".jpg"
        End If
End Select

 

 

老师好，我想在上面代码的基础上再在其他列中获取6个字符的字段进行合并。谢谢。
--  作者：大红袍
--  发布时间：2015/5/28 11:13:00
--  

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "票据原件"
        If dr.IsNull("票据号码")  Then
            MessageBox.Show("请输入票据号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            e.FileName = dr("票据号码") & dr("第一列") & dr("第三列") ".jpg"
        End If
End Select
--  作者：风声
--  发布时间：2015/5/28 20:04:00
--  
我要票据号码列的字符不能超过10个
--  作者：大红袍
--  发布时间：2015/5/28 20:34:00
--  

 去编写datacolChanging事件

 

If e.DataCol.Name = "票据号码" Then

    If e.NewValue.Length > 10 Then

        msgbox("不能超10个")

        e.Cancel = true

    End If

End If