主题：[求助]字母

老师好，我要在名称列中获取名称的第一个字的字母。如(苏州市)我只要获取苏的字母（s)然后赋值给字母列。

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

谢谢老师

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

 

 

老师好，我想在上面代码的基础上再在其他列中获取6个字符的字段进行合并。谢谢。

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

我要piao据号码列的字符不能超过10个

 去编写datacolChanging事件

 

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

    If e.NewValue.Length > 10 Then

        msgbox("不能超10个")

        e.Cancel = true

    End If

End If