代码翻译有谁好心帮忙一下

来源：百度知道 编辑：UC知道 时间：2024/06/18 16:50:08
Private Sub cndShow_Click()
If Check0 = -1 Then
DoCmd.OpenReport "订单报表", acViewPreview
End If
If Check4 = -1 Then
DoCmd.OpenReport "库存报表", acViewPreview
End If
If Check6 = -1 Then
DoCmd.OpenReport "发货报表", acViewPreview
End If
DoCmd.Close acForm, "报表显示"
End Sub

--------------------------------------------------------------
Dim rs As ADODB.Recordset
Dim strSQL As String
Set rs = New ADODB.Recordset

If IsNull(订单号) Then
MsgBox "请填写订单号", vbCritical, "系统提示.."
订单号.SetFocus
Exit Sub
End If

rs.Open "Select * From 库存表 where 产品号 = '" & 产品号 & "'", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Not rs.EOF Then

If rs("库存量") - product_number >= 0 Then
DoCmd.

cndShow _点击(私人替补)。
如果Check0 = 1
DoCmd。OpenReport”订单报表”,acViewPreview
如果
如果Check4 = 1
DoCmd。OpenReport”库存报表”,acViewPreview
如果
如果Check6 = 1
DoCmd。OpenReport”发货报表”,acViewPreview
如果
DoCmd。acForm”,报表显示近”
最后潜艇

——————————————————————————————————————————————————————————————
作为ADODB.Recordset昏暗
昏暗的strSQL作为字符串
新ADODB.Recordset rs =集合

如果IsNull(订单号)
请填写订单号”,vbCritical MsgBox”,“系统提示…”
订单号.SetFocus
出口亚
如果

拉尔夫-舒马赫。打开“选择*从库存表产品号= '”及地方产品号”及“、”
CurrentProject。连接,adOpenKeyset,adLockOptimistic

如果不是rsEOF然后

如果拉尔夫-舒马赫(“库存量”)-产品_数> = 0即可
DoCmd。SetWarnings错误
DoCmd。RunSQL库存量库存表组的"更新"和"库存量rs(产品数量”及“)——在产品号= ' " &产品号& ' ' ' "
DoCmd。RunSQL订单表订单是否发货更新设定在订单号= = 1”和订单号& ' ' ' "

DoCmd。RunSQL插入发货表(订单号”,发货时间,产品号客户号,产