以下的自定义函数不知错在那里,在控件中修改后就是不能保存到数据表中,(与控件的OnlyRead设置无关)
Private Sub Command0_Click()
Call AutoctGrid(ctGrid1, "MRP排产备单档案")
End Sub
Public Function AutoctGrid(xctGrid As Control, DBTable As String)
xctGrid.ClearColumns
xctGrid.ClearItems
'定义数据表
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection