主题：[求助]重置列

还不如重新生成

 

Select Case  e.DataCol.Name
    Case "客户名称","商品名称","规格"
        Dim str As String
        Dim ary1() As String = {"客户名称","商品名称","规格"}
        dim ary2() as string = {"@","#","$"}
        For i As Integer = 0 To ary1.Length -1
            If e.DataRow.IsNull(ary1(i)) = False Then
                str = str & GetPY(e.DataRow(ary1(i)),True) & "|"
            Else
                str = str & ary2(i) & "|"
            End If
        Next
        msgbox(str.trim("|"))
End Select

老师，怎样把字母给单元格

汗，你这样照抄人家的代码真的好吗？

 

e.DataRow("简拼") = str.trim("|")

老师，我搞错了行没有数据，现在好了。谢谢。