1,451
社区成员
发帖
与我相关
我的任务
分享
rs=...
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
da.Fill(ds, rs, "usertable")
dg_Data.DataSource = ds.Tables(0)
dg_Data.Refresh()
'dg_Data.AllowUserToAddRows = False '选择模式,整行
If rs.State = 1 Then rs.Close()