有没有其他方法将控件中数据保存到数据表中

ayhyf2007

我是一个初学者，代码如下


Private Sub Command36_Click()


Dim rs As ADODB.Recordset


Dim StrTemp As String


Dim iTemp As Integer


Dim XTong As Boolean


On Error GoTo Err_保存_Click


    XTong = False


    '打开“秤房数据”表


    Set rs = New ADODB.Recordset


    StrTemp = "Select * From 秤房数据"


    rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


        '如果“秤房数据”表为空，则XTong的值为False


        If rs.RecordCount <= 0 Then


            XTong = False


        Else


        '在“秤房数据”表查找是否存在与待保存的记录相同


            rs.MoveFirst


            Do until Rs.eof


                If (rs("车号") = Me![车号]) And (rs("毛重日期") = Me![毛重日期]) Then


                    XTong = True


                    Exit do


                Else


                    rs.MoveNext


                End If


           loop


        End If


        '在“秤房数据”表中保存该记录的其他信息


            If XTong = True Then


              rs("采样编号") = Me![采样编号]


              rs("验收日期") = Format(Me.验收时间, "m-d-yyyy hh:mm")


              rs("是否退货") = Me![Check14]


              rs("退货原因") = Me![退货原因]


              rs("是否退货") = Me![Check14]


              rs("规格") = Me![Combo18]


              rs("扣吨") = Me![扣吨]


              rs("扣吨原因") = Me![原因]


              rs("场地") = Me![Combo26]


              rs("是否退货") = Me![Check14]


<FONT f

z123456789

用sql语句追加

一点通

将保存的控件减少一点,测试成功后再延长,