测试如何发代码

[tony_zhou2011]

Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim getdb As New Class1
Dim rd As ADODB.Recordset
Dim frm4 As New Form4
rd = getdb.exesql("select * from 测试")
DataGridView3.DataSource = rd




Catch ex As Exception
MsgBox("error:" & vbCrLf & ex.Message)
End Try

End Sub
End Class

[tony_zhou2011]

为什么我的代码不能像其他人的那样，有格式的呢？

[小路子的宝]

选中要格式化的代码
按ctrl+k然后再按ctrl+f

[宝_爸]

放在【code=VB.NET】 【/code】中间

Public Class Form3

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Try
  Dim getdb As New Class1
  Dim rd As ADODB.Recordset
  Dim frm4 As New Form4
  rd = getdb.exesql("select * from 测试")
  DataGridView3.DataSource = rd




  Catch ex As Exception
  MsgBox("error:" & vbCrLf & ex.Message)
  End Try

  End Sub
End Class

[tony_zhou2011]

谢谢啊！