主题：日本鬼子怎么来了？

转成字符串

 

Dim maxcol As Integer = 100

Dim b1 As Table

Dim d As WinForm.Table = Forms("frmZcfzbList").Controls("Table2")

b1 = d.Table

For Each r1 As Row In b1.Rows

    For Each l1 As Col In b1.Cols

        If l1.Index > = maxcol Then

            Exit For

        Else

          If r1.IsNull(l1.name) = False  Then

            r1(l1.name) = Cstr(r1(l1.name)).replace(" ","")

          End If

        End If

    Next

Next